Задание по информатике Вычислить сумму: 1+2^1+3^2+...+n^n-1
VBA
Задание по информатике Вычислить сумму: 1+2^1+3^2+...+n^n-1
VBA
VBA
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 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