ПОМОГИТЕ ПОЖАЛУЙСТА решить в VBA и вывести в excel
Answers & Comments
DonPedro80
Sub p1() Dim x As Double, y As Double x = InputBox("Введите x") y = InputBox("Введите y") Cells(3, 1) = x * y / (x + y) * Atn((1 - x ^ 2 * y ^ 2) ^ -0.5) 'Вывод в A3 End Sub
Answers & Comments
Dim x As Double, y As Double
x = InputBox("Введите x")
y = InputBox("Введите y")
Cells(3, 1) = x * y / (x + y) * Atn((1 - x ^ 2 * y ^ 2) ^ -0.5) 'Вывод в A3
End Sub