Задача 11 Урок 13.1
Primary tabs
Пользователь вводит числа до тех пор пока им не будет передан ноль. В ответ на каждое число программа должна сообщать чётное оно или нет.
var i: integer; begin writeln('Введите целое число:'); readln(i); while i <> 0 do begin if (i mod 2 = 1) or (i mod 2 = -1) then writeln('Число нечетное') else writeln('Число четное'); writeln('Введите целое число:'); readln(i); end; readln(); end.
- Log in to post comments
- 540 reads