Написать в VBA, используя подпрограмму: Натуральное число, в записи которого n цифр,...

Question

Написать в VBA, используя подпрограмму:
Натуральное число, в записи которого n цифр, называется числом Амстронга, если сумма его цифр, возведенных в степень n равна самому числу. Найти все эти числа от 1 до k.

Comments

У Вас неверное определение числа Армстронга. Не "сумма цифр, возведенная в степень, а сумма цифр, возведенных в степень.

---

Т.е. не (1+2+3)^3, а 1^2+2^3+3^3

---

не я писал задачу... поэтому вот такие бывают ошибки

---

Верю, но автор вопроса для нас - Вы...

---

Поэтому либо оставляйте так и тогда решение будет не для числе Армстронга, либо исправляйте.

---

Исправил

Answer 1

Function IsArmstrong(m As Long) As Boolean
    Dim s As Long, n As Integer, i As Integer, m1 As Long
    Dim d(1 To 15) As Long
    m1 = m: n = 0
    Do While m1 > 0
        n = n + 1
        d(n) = m1 Mod 10
        m1 = Int(m1 / 10)
    Loop
    s = 0
    For i = 1 To n
        s = s + d(i) ^ n
    Next i
    IsArmstrong = (s = m)
End Function

Sub Test()
    Dim k As Long, i As Long, j As Integer
    Cells.Clear
    k = CLng(InputBox("Введите значение k"))
    j = 1
    For i = 0 To k
        If IsArmstrong(i) Then
            Cells(j, 1) = i
            j = j + 1
        End If
    Next i
End Sub

Comments

Результат выводится на активный лист рабочей книги