Задача 11 Урок 13
Primary tabs
Пользователь вводит числа до тех пор пока им не будет передан ноль.
В ответ на каждое число программа должна сообщать чётное оно или нет.
var a: integer; begin writeln('Vvedite chislo'); readln(a); while(a <> 0) do begin if ((a mod 2) = 0) then writeln('chislo chetnoe') else writeln('chislo nechetnoe'); writeln('Vvedite chislo'); readln(a); end; end.
КОНСОЛЬ
Vvedite chislo 5 chislo nechetnoe Vvedite chislo 4 chislo chetnoe Vvedite chislo 150 chislo chetnoe Vvedite chislo -5 chislo nechetnoe Vvedite chislo -10 chislo chetnoe Vvedite chislo 0
- Log in to post comments
- 683 reads