Составить программу вычисления суммы первых 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы