Даны 6 чисел. Найти максимальное четное число

Question

Даны 6 чисел. Найти максимальное четное число. Написать программу с помощью Pascal и используя цикл repeat… .untilпомогите, пожалуйста!

Answer 1

97

praim

09 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: