Условие задачи
Вычислить значение выражения с помощью программы, написанной на языке программирования Visual Basic for Application (VBA).
Протестировать программу: при х =5 ответ 1,857143.
Ответ
Текст программы
Sub pr1()
Dim x, y
x = Val(InputBox("Введите x:"))
y = 1 + (1 / (1 + (1 / (1 + x))))
MsgBox "при x=" x " " "y=" y
End Sub