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

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

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

Сколько нужно взять членов арифметической прогрессии с заданым первым членом и разностью чтоб их сумма превысила заданое число q. Често скажу ,сам вообще не пойму как решить,в техе препод ни какого материала не предоставляет для того что бы решать, сам еще чайник.Ищу подмоги тут,буду благодарен!

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

textual
Листинг программы
s = a1
n = 1
 
Do
   n = n + 1
   an = a1 + (n - 1) * d
   s = s + an
Loop Until s > q
Print n

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

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