На вход программы поступает неизвестное количество - вопрос №617551 от shilinvanechka 22.02.2020 22:28

Question

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

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