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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.