Question

Решить в паскале.

max {x+y+z;     x*y+z;   x^2+y^2-z} 
min {x+y+(2/2);     x*y*z}  +1

Answer 1

program maxmin;
var x, y, z: integer;
max, min: integer;
begin
readln(x, y, z);
max:=x+y+z;
if x*y+z>max then max:=x*y+z;
if sqr(x)+sqr(y)-z > max then max:=sqr(x)+sqr(y)-z;
writeln(max);
min:=x+y+1;
if x*y*z<min then min:=x+y+1;
write(min+1);
end.