< >

ПАСКАЛЬ!!!!

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

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

Ответы

Ответ дал: 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.

Похожие вопросы
Українська мова
2 года назад
Помогите кто то пжл оч надо
Английский язык
2 года назад
переведите на английский: призрак вёл нас но мы не понимали куда. мы были марионетками в её руках. шли за ней не думая о последствиях. когда мы повернули за ней, мы увидели два прохода и решили
Математика
2 года назад
Умножение обыкновенных дробей и смешанных чисел. Взаимно обратные числа. Урок 4 Вычисли (12 ∙ a + b)*2\3 – c, если a =5\18 b =2\3 c = 1 1\3 плииис помогите мне
Математика
2 года назад
Помогите решить задачу Буквы П, О, Р, Т, С, В, Е написаны на отдельных карточках. Ребенок берет четыре карточки в случайном порядке, прикладывая их одну к другой. Какова вероятность, что получится
Математика
8 лет назад
Пожалуйста помогите номер 45
Химия
8 лет назад
Осадок образуется при взаимодействии растворов: 1) хлорида натрия и сульфата калия 2) бромида кальция и нитрата магния 3) карбоната калия и хлорида бария 4) силиката натрия и хлорида калия
География
9 лет назад
что такое черное металургия
Литература
9 лет назад
потеря дома-самое большое несчастье