Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Паскаль.Даны дейсвительные числа x,y,z.Вычислить min2(x+y+z/2 , xyz)+1.

Ответ оставил Гость

var x,y,z,res,a,b: real;

begin

write(Vvedite x = );

readln(x);

write(Vvedite y = );

readln(y);

write(Vvedite z = );

readln(z);

a := x + y + z / 2;

b := x * y * z;

if (a < b) then res := a * a + 1;

else res := b * b  + 1;

writeln(res);

end.