Задача 11 Урок 13.1
Primary tabs
{13.1 — 11 Пользователь вводит числа до тех пор пока им не будет передан ноль.
В ответ на каждое число программа должна сообщать чётное оно или нет.}
var a: integer; begin repeat writeln('write your num'); read(a); if (a mod 2 = 0) then writeln('is odd') else writeln('is not odd'); until (a=0); end.
- Log in to post comments
- 980 reads