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

Ответы 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.

    • Автор:

      lilahedvj
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years