var a, max, i: integer; begin repeat readln(a); if(a > max) and (a mod 2 = 0) then max := a; inc(i); until(i = 6); writeln('Макс. четное число: ', max); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
