ПАСКАЛЬ!!!!
На вход программы поступает неизвестное количество чисел целых, ввод заканчивается нулём. Найти максимальное из введённых чётных чисел.
Заранее спасибо.
Ответы на вопрос
Ответил supersuperkirip54irs
0
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.
Новые вопросы
Другие предметы,
1 год назад
Русский язык,
1 год назад
Химия,
7 лет назад
Алгебра,
8 лет назад
Литература,
8 лет назад