Ввести два числа, если они оба четные, найти наибольшее из них. Pascal

Question

Информатика

Бронислав

1 апреля, 06:35

Ввести два числа, если они оба четные, найти наибольшее из них. Pascal

+3

Ответы (1)

Знаете ответ?

Потап · Answer 1

Var a, b:integer;

begin

writeln ('Введите два числа') ;

readln (a, b) ; if (a mod 2=0) and (b mod 2 = 0) then

if a>b then write (a) else write (b)

end.