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

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

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

Решение:

var i,j: integer;
begin
  repeat
    writeln('vvedite chislo');
    readln(i);
    if i = 0 then break;
    if i mod 2 = 0 then
      writeln('Chislo chetnoe')
    else
      writeln('Chislo ne chetnoe');
  until i=0;
  writeln('Poka');
  readln();
end.

Консоль:

vvedite chislo
8
Chislo chetnoe
vvedite chislo
7
Chislo ne chetnoe
vvedite chislo