Найдите сумму 1+1/2+1/+1/n(программа нужна для - вопрос №1029190411211 от mlgamu2013 22.01.2021 06:06

Question

Информатика: Найдите сумму 1+1/2+1/+1/n(программа нужна для excel vba)

mlgamu2013 · Answer

Sub abc()

Dim s As Double, n As Integer, i As Integer

n = CInt(InputBox("Задайте значение n"))

For i = 1 To n

s = s + 1 / i

Next i

MsgBox "Сумма равна " & CStr(s)

End Sub