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

Primary tabs

Submitted by Levvv on Tue, 01/04/2022 - 11:32

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

var i: integer;
begin
repeat
    readln(i);
    if (i mod 2=0) then writeln('четное')
    else writeln('нечетное');
until(i=0);
end.