Question

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

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

real

Answer 3

Действительно, не заметил, спасибо.

Answer 4

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<x*y*z then writeln('max=x*y*z=',x*y*z);
     if x+y+z=x*y*z then writeln('x*y*z=x+y+z=',x*y*z);
end.