Урок 13.1 Задание 12

Задание 13 Урок 12

Пользователь вводит числа до тех пор пока им не будет передан ноль. В ответ на каждое число программа должна сообщать чётное оно или нет.

program Hello;
var i:integer;
begin
i:=1;
while i <> 0 do
begin
  writeln('vvedite hcislo');
  readln(i);
  if i mod 2 = 0 then
   writeln('chetnoe')
  else
   writeln('nechetnoe');
end;   
end.

Консоль:

 vvedite hcislo
6
chetnoe
vvedite hcislo
3
nechetnoe
vvedite hcislo
0
chetnoe