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

Есть ответ
17.12.2022
255

Ответ


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.

 


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
17.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.