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

Question

Информатика

Майа

6 мая, 03:23

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

+5

Ответы (1)

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

Капитон · Answer 1

Program n1;

var a, b, c, sum, p: real;

begin

readln (a, b, c) ;

p:=a*b*c;

sum:=a+b+c;

if p>sum then writeln ('наибольшее: ', p)

else writeln ('наибольшее', sum) ;

end.