Задача 11 Урок 13

Урок 13.1

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

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