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

Question

Информатика

Стефана

12 мая, 17:29

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

+4

Ответы (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.