Даны 3 числа. найдите наибольшее значение из их суммы и произведения

Question

Информатика

Эльвира

5 июля, 00:10

Даны 3 числа. найдите наибольшее значение из их суммы и произведения

+5

Ответы (1)

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

Анатолий · Answer 1

Var

a, b, c, p, s: integer;

begin

readln (a, b, c) ;

p : = a * b * c;

s : = a + b + c;

writeln ('P = ', p) ;

writeln ('S = ', s) ;

write ('Max = ') ;

if s > p then writeln (s) else writeln (p) ;

end.