Срочно!!!!
составить прогу в паскале по заданию ниже.
найти все числа кратные 3
Var
i: integer;
begin
for i := 100 to 999 do
if i mod 3 = 0 then writeln(i);
end.
Оцени ответ
