можете проверить?
сначало я заменила имя в задачи на имя в программе:
a=a
b=b
x=x
(sin(75')+cos(ab))/2=n
потом сделала для удобства условия в виде (на картинке)

а вот код грограммы:
Sub ProgramirovanieFormul()
Dim x as Boolean, a as Double, b as Double, n as Double
a=InputBox("введите значение a")
b=InputBox("введите значение b")
x=InputBox("введите значение x")
If x=o Then
y=1
ElseIf x=П Then
y=-1
Else x=(п/a)-ant(y/(1-(y)^2)^1/2) Then
(y>-1) AND (y<1)
End If
MsgBox("Y="& Str(y))
End Sub

скукотища,

не правильно?

скукотища,

а можете помочь?

скукотища,

это правильно?

скукотища,

спасибо большое!)