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