Задача 11 урок 13.1
Primary tabs
http://fkn.ktu10.com/?q=node/8697
{Пользователь вводит числа до тех пор пока им не будет передан ноль.
В ответ на каждое число программа должна сообщать чётное оно или нет.}
program task11_lesson13_1; var a : integer; begin repeat //можно заменить на WHILE, но тогда 0 не пройдет проверку четности writeln('Check parity. Enter number :'); readln(a); if ((a mod 2) = 0) then writeln('even number') else writeln('odd number'); until (a = 0); // пользователь ввел 0, проверили его четность readln(); // вышли из цикла end.
- Log in to post comments
- 707 reads