Условие:
Составить программу расчета значения функции согласно предложенному варианту


Составить программу расчета значения функции согласно предложенному варианту

Sub s()
y = CDbl(InputBox("y="))
If y 0 Then
f = y ^ 3 - 0.3
ElseIf y 1 Then
f = y ^ 3 + 1
Else
f = 0
End If
MsgBox f
End Sub