На вход программы поступает неизвестное количество - вопрос №617894 от DogyStyleee 26.04.2023 09:30

Question

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

DogyStyleee · Answer

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....