Задача 11 Урок 13
Primary tabs
Пользователь вводит числа до тех пор пока им не будет передан ноль. В ответ на каждое число программа должна сообщать чётное оно или нет.
program lesson13_11; var a : integer; begin while true do begin writeln('enter number a'); readln(a); if a = 0 then break else if a mod 2 = 0 then writeln(a, ' - even number') else writeln(a, ' - odd number'); end; readln(); end.
- Log in to post comments
- 459 reads