P.S программа написана для Pascal.
program summa;
var
a, b, s : integer;
begin
writeln('Введите число a=');
read(a);
writeln('Введите число b=');
read(b);
s:=0;
for a:=a to b do
if a mod 3=0 then
s:=s+a;
writeln('Сумма: ',s);
end.
2
Т.к. он вперед на 3 красит и назад на 3 красит и повторяет этот цикл 6 раз. по одним и тем же клеткам
Является берестяная грамота