Информатика

Лекся

6 сентября, 20:53

Где ошибка?

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