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

Question

Информатика

Филипьич

6 мая, 04:23

Ввести два числа, если они оба четные, найти наибольшее из них. 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.