Сергей
Мудрец
(10511)
4 месяца назад
добавьте значения a b в ячейки A2 B2
Добавьте процедуру
Sub raschet()
Dim a, b, x, y As Double
a = Range("A2").Value
b = Range("B2").Value
x = (5 * Sin(a) + b) / (a + 1)
If x > 5 Then
y = Sqr(x - 5)
Else
If x = 5 Then
y = 1
Else
y = Sqr(5 - x)
End If
End If
Range("c2").Value = y
End Sub
В С2после ее выполнения будет результат
3 Вариант