Дана числовая последовательность. Найти сумму первых пятидесяти членов - VB

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

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

Дана числовая последовательность {1,3,5...m}. Найти сумму первых пятидесяти членов

Решение задачи: «Дана числовая последовательность. Найти сумму первых пятидесяти членов»

textual
Листинг программы
Module Hello
Sub Main()
 
Dim i As Integer
Dim j As Integer
Dim s As String
Dim p As Integer
 
s = ""
j = 1
p = 0
 
For i = 1 To 50
p = p + j
j = j + 2
s = s + CStr(j) + " "
 
Next i  
 
s = s + vbcrlf
s = s + CStr(p)
 
MsgBox(s)
End Sub
End Module

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

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