ДАЮ 50 БАЛЛОВ 5-ое ЗАДАНИЕ В ПРАКТИЧЕСКОЙ ЧАСТИвыести две числа отыскать

ДАЮ 50 БАЛЛОВ
ПЯТОЕ ЗАДАНИЕ В ПРАКТИЧЕСКОЙ Доли
выести две числа отыскать наибольшее четное число при наличии 2-ух критерий пишется к примеру так

Задать свой вопрос
1 ответ

var

i,a, cmax: integer

begin

cmax:= -999;

for i:= 1 to 2 do

begin

readln (a);

if (a mod 2=0) and (agt; сmax) then

cmax:= a;

End;

if cmax lt;gt; -999 then write (cmax)

Else write ('четные числа отсутствуют')

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт