Вычислить сумму квадратов последовательности натуральных чисел - VBA
Формулировка задачи:
Вычислите сумму квадратов последовательности натуральных чисел до тех пор, пока значение суммы не превышает заданное число n.
Решение задачи: «Вычислить сумму квадратов последовательности натуральных чисел»
textual
Листинг программы
Sub SumKv()
MsgBox Evaluate("MAX(IF(ROW(1:9999)^3/3+ROW(1:9999)^2/2+ROW(1:9999)/6<=" & Int(InputBox("Введите число", , 1000000)) & ",ROW(1:9999)^3/3+ROW(1:9999)^2/2+ROW(1:9999)/6))")
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д