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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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)