• где ошибка?
    Sub сер
    Dim x, y, z, f, max, min As Single
    x = Val(InputBox(2))
    y = (InputBox(6))
    z = (InputBox(10))
    If x / 2 > y / 3 > z / 4 Then
    If x / 2 > y / 3 Then
    max = x / 2
    Else
    max = y / 3
    End If
    End If
    Else
    If y / 3 > z / 4 Then
    max = y / 3
    Else
    max = z / 4
    End If
    Else
    If x ^ 2 > y ^ 2 Then
    min = x ^ 2
    Else
    min = y ^ 2
    End If



    End If
    Print f = "max(x / 2, y / 3, z / 4) + min(x ^ 2, y ^ 2)="; min; " + "; max; " = "; min + max

Ответы 1

  • If x / 2 > y / 3 Thenmax = x / 2Elsemax = y / 3End IfIf z / 4 > max Thenmax = z / 4End IfIf x ^ 2 < y ^ 2 Thenmin = x ^ 2Elsemin = y ^ 2End If
  • Добавить свой ответ

Войти через Google

или

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

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

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