Среди чисел 1,3,6,9,12 напечатать те, которые больше n - Pascal

Узнай цену своей работы

Формулировка задачи:

Среди чисел 1,3,6,9,12... напечатать те, которые больше n

Решение задачи: «Среди чисел 1,3,6,9,12 напечатать те, которые больше n»

textual
Листинг программы
var i, n: integer;
begin
  read(n); i := 3;
  while true do begin
    if i > n then writeln(i);
    inc(i, 3);
  end;
end.

Оцени полезность:

5   голосов , оценка 4 из 5
Похожие ответы