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