написать программу вычисления суммы n слагаемых вида: (k-1)3 где к=1,2,3... n

Question

написать программу вычисления суммы n слагаемых вида: (k-1)3 где к=1,2,3... n

Answer 1

Dim n As Integer
Dim k As Integer        
Dim Summ As Integer

n = InputBox("Введите n")
For k = 1 To n
            Summ += (k - 1) * 3        
'  c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
Next
MsgBox(Summ)