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

Question

Информатика

Стратбник

21 марта, 20:26

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

+4

Ответы (1)

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

Исак · Answer 1

Var a, b, c, s, p:longint;

begin

p:=0;

s:=0;

writeln ('Введите через пробел три числа') ;

read (a, b, c) ;

s:=a+b+c;

p:=a*b*c;

if s>p then writeln ('Сумма больше произведения')

else if s

else writeln ('Сумма и произведение равны') ;

end.