Program maxx;
var ocenka,sdal,nesdal,k,i:integer;
begin
writeln('введите кол-во оценок');
readln(k);
sdal:=0;
nesdal:=0;
for i:=1 to k do
begin
readln(ocenka);
if ocenka>2
then sdal:=sdal+1;
else nesdal:=nesdal+1;
end;
writeln(sdal);
writeln(nesdal);
<span>end.</span>
Const n=50;
var B:array[1..n] of integer; i:byte;x:integer;
begin
x:=1;
for i:1 to n do
begin
B[i]:=x;
x:=x+3;
end;
end.
Ответ:
Объяснение:
Мелкий чиновник, часто разъезжающий по служебным делам. От его лица идет описание героев повести. Любознательный молодой человек, с уважением относящийся к простым людям. Умеет найти подход к людям, любит слушать различные истории. Внимательный и наблюдательный человек, умеет сопереживать и сочувствовать чужому горю. Узнав о том, что у Дуни все сложилось хорошо, и она была на могиле отца, он прощает ее.
Краткое сочинение
Program N1;
var
a:integer;
begin
readln(a);
If (a>0) then writeln(a+1)
else writeln(a);
<span>end. </span>