Есть 4 числа a b c d. Число a умножается на число b а число с умножается на число d. Вывести на экран большее поизведение

Question

Информатика

Тимаша

19 ноября, 05:05

Есть 4 числа a b c d. Число a умножается на число b а число с умножается на число d. Вывести на экран большее поизведение

+5

Ответы (1)

Знаете ответ на вопрос?

Корнеля · Answer 1

Var

a, b, c, d, p1, p2: integer;

begin

readln (a, b, c, d) ;

p1 : = a * b;

p2 : = c * d;

if p1 > p2 then writeln (p1)

else writeln (p2) ;

end.