Напишите программу, которая в последовательности натуральных чисел определяет максимальное четное число. Программа получает на вход целые числа, количество введенных данных неизвестно, последовательность чисел заканчивается числом 0. На Паскале
va number, maxEven: integer begi maxEven := 0 repea readln(number) if (number mod 2 = 0) and (number > maxEven) the maxEven := number until number = 0;
va
number, maxEven: integer
begi
maxEven := 0
repea
readln(number)
if (number mod 2 = 0) and (number > maxEven) the
maxEven := number
until number = 0;
writeln('Максимальное четное число: ', maxEven)
end.