Срочно!!!! составить прогу в паскале по заданию ниже. найти все числа кратные 3

Question

Срочно!!!!
составить прогу в паскале по заданию ниже.
найти все числа кратные 3

Comments

поправка: найти все ТРЕХЗНАЧНЫЕ числа, кратные 3

Answer 1

Var
  i: integer;

begin
  for i := 100 to 999 do
    if i mod 3 = 0 then writeln(i);
end.