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

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

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

program  u131z11;
var i, m: integer;

begin

  repeat
    writeln ('vvedite chislo');
    readln(m);
      if (m <>0)then
      begin
        if (m mod 2 = 0) then
          writeln('chislo chetnoe')
          else
          writeln ('chislo nechetnor');

      end;
  until (m = 0);
end.