Задание 11 Урок 13.1
Primary tabs
Задание 11 Урок 13.1
Пользователь вводит числа до тех пор пока им не будет передан ноль. В ответ на каждое число программа должна сообщать чётное оно или нет.
var i : integer; label m1; begin m1: write('Введите число и нажмите ENTER:'); readln(i); while (i <> 0) do begin if ((i mod 2) = 0) then writeln('Число ', i, ' Четное') else writeln('Число ', i, ' Нечетное'); goto m1; end; write('Программа завершена! Нажмите ENTER!'); readln(); end.
- Log in to post comments
- 576 reads