Задание по информатике Вычислить сумму: 1+2^1+3^2+...+n^n-1
VBA
Задание по информатике Вычислить сумму: 1+2^1+3^2+...+n^n-1
VBA
VBA
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
Sub SumPower()
n = InputBox("Enter a number:")Dim n As Integer
Dim i As Integer
Dim sum As Double
If n < 1 Then
MsgBox "Please enter a positive integer"
Exit Sub
End If
sum = 0
For i = 1 To n
sum = sum + i ^ (i - 1)
Next i
MsgBox "The sum is: " & sum
End Sub