Question

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

Answer 1

var
  i: integer;

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