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

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

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

var i, a: integer;
begin
  repeat
    writeln ('vvedite chislo');
    readln(a);
      if (a <>0)then
      begin
        if (a mod 2 = 0) then
          writeln('chislo chetnoe')
        else
          writeln ('chislo nechetnoe');
      end;
  until (a = 0);
end.

Konsol

vvedite chislo
5
chislo nechetnor
vvedite chislo
8
chislo chetnoe
vvedite chislo
2
chislo chetnoe
vvedite chislo
0