Среди чисел 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.