Задача 7 урок 13.1
Primary tabs
http://fkn.ktu10.com/?q=node/8697
{Модифицируйте предыдущую задачу так, чтобы в случае, если число удовлетворяет требованиям (целое, положительное),
то на экран выводились четные числа.}
program task7_lesson13_1; var n, i : integer; begin writeln('Enter number more then 0 :'); readln(n); if n <= 0 then writeln('ERROR') else for i := 1 to n do if ((i mod 2) = 0) then write(i, ' '); readln(); end.
- Log in to post comments
- 618 reads