Сколько чисел последовательности нужно взять, чтобы их сумма превысила 1000 - VB

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

Сколько чисел последовательности 2, 4, 6, 8, ... нужно взять, чтобы их сумма превысила 1000? Вывести величину последнего слагаемого и суммы. Вот программа, которую написала я....я уверена, что она неправильная, но может случится чудо...

Private Sub Command1_Click()
Picture1.Cls
n = Val(Text1)
M = 0
Sum = 0
For n = 1 To 50
an=2n
Sum=a1+a2+a3+a4+...+an
If Sum <= 1000 Then M = M + 1
If Sum > 1000 Then M = M
Picture1.Print Sum, M
Next n
End If
End Sub

Решение задачи: «Сколько чисел последовательности нужно взять, чтобы их сумма превысила 1000»

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

                            Private Sub Command1_Click()
 Dim Sum As Integer, M As Integer, n As Integer
 Picture1.Cls
 n = 2 'Val(Text1)
 M = 0
 Sum = 0
 
 Do
 Sum = Sum + n
 n = n + 2
 M = M + 1
 Loop Until Sum > 1000
 
 Picture1.Print Sum, M
 
 End Sub
                        

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

11 голосов , оценка 4 из 5

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