begin readln(n); g:=n; while n<>0 do begin g:= g div 10; k +=1; end;
for i:=1 to k do begin g:= n mod 10; sum:= sum + g; n:=n div 10; end; if sum> 10 then writeln('верно') else ('неверно'); end.
2. var n,i,k,p,h,g:integer;
begin readln(n); g:=n; while n<>0 do begin g:= g div 10; k +=1; end; p:=n mod 10; n:=n div 10; for i:=1 to k-1do begin g:= n mod 10; if g = p then h += 1; n:=n div 10; end; writeln(h); end.
3. const n=10; var
a:array[1..n]of integer; i,sum:integer;
begin a[n]:=0; for i:=1 to 9 do readln(a[i]);
for i:=1 to n do sum:=sum+a[i]; writeln(sum); end.
4. var
n:integer;
begin
readln(n);
while n<>0 do begin n:=n div 10; k += 1; end; if k = 4 then writeln('число четырехзначное') else writeln('число не четырехзначное'); end.
5. var
a:array[1..10]of integer; i:byte;
begin
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do begin if a[i] = 2 then writeln('да есть'); break; end; end.
ответ: Восприятие объектов по его свойствам - ощущение.
Объяснение: восприятие - это целостное отражение объекта, непосредственно воздействующего на наши органы чувств. Оно складывается из отдельных ощущений. Предположим, вас угостили яблоком. С глаз вы воспринимаете его форму и цвет; с языка определяете, кислое оно или сладкое; с носа ощущаете его аромат.
В результате создаётся целостное отражение этого объекта. Но восприятие одного и того же объекта разными людьми может быть различным.
Так, скорее всего, взглянув на зелёный луг, художник восхитится его красотой, формой и красками, биолог увидит различные виды растений, а крестьянин прикинет, сколько с него можно получить сена.
Из этого примера видно, что восприятие каждого человека очень сильно переплетается с его прежними опытом и знаниями.
var
n,i,k,sum,g:integer;
begin
readln(n);
g:=n;
while n<>0 do begin
g:= g div 10;
k +=1;
end;
for i:=1 to k do begin
g:= n mod 10;
sum:= sum + g;
n:=n div 10;
end;
if sum> 10 then
writeln('верно')
else
('неверно');
end.
2.
var
n,i,k,p,h,g:integer;
begin
readln(n);
g:=n;
while n<>0 do begin
g:= g div 10;
k +=1;
end;
p:=n mod 10;
n:=n div 10;
for i:=1 to k-1do begin
g:= n mod 10;
if g = p then
h += 1;
n:=n div 10;
end;
writeln(h);
end.
3.
const
n=10;
var
a:array[1..n]of integer;
i,sum:integer;
begin
a[n]:=0;
for i:=1 to 9 do
readln(a[i]);
for i:=1 to n do
sum:=sum+a[i];
writeln(sum);
end.
4.
var
n:integer;
begin
readln(n);
while n<>0 do begin
n:=n div 10;
k += 1;
end;
if k = 4 then
writeln('число четырехзначное')
else
writeln('число не четырехзначное');
end.
5.
var
a:array[1..10]of integer;
i:byte;
begin
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 10 do begin
if a[i] = 2 then
writeln('да есть');
break;
end;
end.
ответ: Восприятие объектов по его свойствам - ощущение.
Объяснение: восприятие - это целостное отражение объекта, непосредственно воздействующего на наши органы чувств. Оно складывается из отдельных ощущений. Предположим, вас угостили яблоком. С глаз вы воспринимаете его форму и цвет; с языка определяете, кислое оно или сладкое; с носа ощущаете его аромат.
В результате создаётся целостное отражение этого объекта. Но восприятие одного и того же объекта разными людьми может быть различным.
Так, скорее всего, взглянув на зелёный луг, художник восхитится его красотой, формой и красками, биолог увидит различные виды растений, а крестьянин прикинет, сколько с него можно получить сена.
Из этого примера видно, что восприятие каждого человека очень сильно переплетается с его прежними опытом и знаниями.