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

Question

Информатика

Ведя

10 июня, 12:22

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

+2

Ответы (1)

Знаете ответ на вопрос?

Вета · Answer 1

var a, max:integer;

begin

max:=0;

a:=0;

read (a) ;

while a0 do

begin

if (a mod 2=0) and (a>=max) then max:=a;

read (a) ;

end;

write (max) ;

end.