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

@nikita7991 · Регистрация: 16.04.2013

Author24 — интернет-сервис помощи студентам

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

@n1ko · 03.06.2013, 20:49

ну вроде так

Visual Basic

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

@nikita7991 0 / 0 / 0 Регистрация: 16.04.2013 Сообщений: 121
		1
	дана числовая последовательность 03.06.2013, 20:25. Показов 1241. Ответов 1 Метки нет (Все метки) дана числовая последовательность An=2cos(n) найти сумму положительных чисел среди первых ста членов последовательности. 0

	03.06.2013, 20:49

Опции темы

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

Решение