ПАСКАЛЬ!!!!

На вход программы поступает неизвестное количество чисел целых, ввод заканчивается нулём. Найти максимальное из введённых чётных чисел.

Заранее спасибо.

Ответ

Автор - supersuperkirip54irs

var a,k:integer;

BEGIN

k:=0;

repeat

read(a);

if (a>k) and (a mod 2=0) then

k:=a;

until a=0;

writeln(k);

end.

Предыдущий вопрос Следующий вопрос

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.