Дана числовая последовательность - VB

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

дана числовая последовательность An=2cos(n) найти сумму положительных чисел среди первых ста членов последовательности.

Решение задачи: «Дана числовая последовательность»

textual
                            Листинг программы 
                        

                            Private Sub Form_Load()
Do
b = b + 1
a = 2 * Cos(b)
If a > 0 Then
Sum = Sum + a
End If
Loop Until b = 100
MsgBox "Сумма = " & Format(Sum, "0.00"), vbOKOnly, ""
End
End Sub
                        

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

10 голосов , оценка 4.2 из 5

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