Написать программу для нахождения значения переменной S по формуле: S=ln1+ln2+…+ln n

Question

Написать программу для
нахождения значения переменной S по формуле: S=ln1+ln2+…+ln n

Answer 1

А в чем трудность?
Dim i As Integer, S As Double, n As Integer
Print "Введите количество слагаемых n: ";
Input n
S = 0
For i = 1 To n
S = S + Log(i)
Next i
Print "Сумма S = " & Str(S)
End