Найти сумму ряда - Visual Basic .NET (64040)
Формулировка задачи:
Дано целое число N (> 0). Найти сумму
1 + 1/2 + 1/3 + … + 1/N
Решение задачи: «Найти сумму ряда»
textual
Листинг программы
Private Function f(x As Integer) As Double Dim y As Double = 0 For i As Integer = 1 To x - 1 y += 1.0 / i Next Return y End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д