Регистрация
Erikalallala
09.03.2020 23:03
Информатика
Есть ответ 👍

• Контур
• Следуй за мной
• Тяни/толкай
• Дуга
• Выбор

195
242
Посмотреть ответы 2

Ответы на вопрос:

ВасилийПетрович11
ВасилийПетрович11
4,8(55 оценок)

Прости нужны

Объяснение:

ДанилЮсупов
ДанилЮсупов
4,7(46 оценок)

var a,b: integer;

begin

read(a);

b: =a mod 10;

a: =a div 10;

if (a mod 10 < b) and (a mod 2 = 0) then b: =a mod 10;

a: =a div 10;

if (a mod 10 < b) and (a mod 2 = 0) then b: =a mod 10;

a: =a div 10;

if (a mod 10 < b) and (a mod 2 = 0) then b: =a mod 10;

if b mod 2=0 then writeln(b)else writeln('-1');

end.

Популярно: Информатика