Найти натуральное число, которое в пять раз меньше суммы предшествующих - VB
Формулировка задачи:
Найти натуральное число которое :
1) В пять раз меньше суммы предшествующих ему натуральных чисел;
2)Равно сумме предшествующих ему натуральных чисел. Используйте цикл с постусловием с ключевым словом Until.
Решение задачи: «Найти натуральное число, которое в пять раз меньше суммы предшествующих»
textual
Листинг программы
Sub Task() n& = 1 S& = 1 Do n& = n& + 1 S& = S& + n& Loop Until 5 * n& = S& - n& Debug.Print n& End Sub