Задача 11 Урок 13.1
Primary tabs
http://fkn.ktu10.com/?q=node/8697
Пользователь вводит числа до тех пор пока им не будет передан ноль. В ответ на каждое число программа должна сообщать чётное оно или нет.
var a: integer; begin repeat writeln ('введите число'); readln (a); if ((a mod 2)=1) then writeln ('число нечетное') else writeln ('четное'); until (a=0); write('end'); end.
- Log in to post comments
- 400 reads