Составить программу(паскаль): даны действительные числа x, y, z. вычислить min2(x+y+z/2, xyz)+1

Question

Информатика: Составить программу(паскаль): даны действительные числа x, y, z. вычислить min2(x+y+z/2, xyz)+1

mariapogorelova · Answer

var

x, y, z, res : real;

function min2 (a, b : real) : real;

begin

if a < b then min2 := a else min2 := b;

end;

begin

read (x, y, z);

res := min2 (x + y + z / 2, x* y * z)+1;

writeln (res);

end.