Плиз напишите программу ** языке бейсик для следующего неравества

Question

Плиз напишите программу на языке бейсик для следующего неравества

---

Answer 1

VBA:

Sub P()

Dim x As Double, y As Double

x = Val(InputBox("x = "))

If x

   y = Sin(2 * x)

ElseIf x

   y = Tan(x)

   Else: y = 0.33 * x

End If

MsgBox (" Y = " & y)

End Sub