Question

Вывести на экран двузначные числа последняя цифра которых кратна 3 циклом while

Answer 1

var

  c:integer;

begin

  c := 10;

  while c < 100 do

  begin

    if ((c mod 10) mod 3 = 0) and (c mod 10 <>0) then

      write(c, ' ');

    c := c + 1;

  end;

  writeln;

end.