Даны действительные числа x, y, z. Вычислить max (x+y+z, xyz).

Question

Информатика

Олюша

1 июня, 22:26

Даны действительные числа x, y, z. Вычислить max (x+y+z, xyz).

+3

Ответы (2)

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

Марьян · Answer 1

Uses crt;

var x, y, z:real;

begin

read (x, y, z) ;

if x+y+z>x*y*z then

writeln (x+y+z)

else

writeln (x*y*z) ;

end.

Димуля · Answer 2

Uses crt;

var x, y, z, max: real;

begin

readln (x, y, z) ;

if x+y+z>x*y*z then writeln ('max=x+y+z=', x+y+z) ;

if x+y+z
if x+y+z=x*y*z then writeln ('x*y*z=x+y+z=', x*y*z) ;

end.