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