2
Т.к. он вперед на 3 красит и назад на 3 красит и повторяет этот цикл 6 раз. по одним и тем же клеткам
Var
S, a, h: real;
begin
write('Введите длину основания --->');read(a);
write('Введите высоту --->');read(h);
S := (a * h) / 2;
writeln('Площадь треугольника равна', ' ', S);
writeln('Целая часть - ', Trunc(S));
writeln('Дробная часть - ', Frac(S));
end.
закрасить
нц пока сверху свободно
вверх
кц
нц пока справа свободно
вправо
кц
нц пока не(справа свободно)
закрасить
вниз
кц
Var i,s,a:integer;
begin
s:=0;
for i:=21 to 99 do
begin
a:=i mod 10;
if (i mod 3 = 0)and((a=2)or(a=4)or(a=8)) then s:=s+i;
end;
writeln('s = ',s);
end.
Результат:
<span>s = 402</span>