Вывести числа, принадлежащие отрезку [A,B], кратные числу 3.
В програме pascalABC, желательно с блок-схемой
Var
a, b, i: integer;
begin
read(a);
read(b);
for i := a to b do
if i mod 3 = 0 then
writeln(i);
end.
Оцени ответ
