Составить программу вычисления суммы первых k нечетных чисел - VB

Узнай цену своей работы

Формулировка задачи:

1. Составить программу вычисления суммы первых k нечетных чисел. 2. Составить программу вычисления суммы s=1+1*2+1*2*3+1*2*...*k.

Решение задачи: «Составить программу вычисления суммы первых k нечетных чисел»

textual
Листинг программы
Private Sub Command1_Click()
Dim k%, i%
k = 3
Summ = 0
For i = 1 To k
Summ = Summ + s(i)
Next
Print Summ
End Sub
Function s(n%)
If n = 0 Then
s = 1
Else
s = n * s(n - 1)
End If
End Function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.167 из 5
Похожие ответы