Вывести трехзначные числа кратные 7 используя while pascal

SchillerAlice SchillerAlice    2   04.09.2019 03:30    1

Ответы
Illia1Z Illia1Z  06.10.2020 16:07
Var  n: integer;
begin  n := 100;  while (n <= 999) do  begin    if n mod 7 = 0 then      write(n, ' ');    n += 1;  end;end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика