На вход программы поступает неизвестное количество - вопрос №618228 от Dobro118 17.09.2022 20:59

Question

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

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