Question

Составить программу Натуральное число называется числом Армстронга, если сумма цифр числа, возведенных в N-ную степень (где N – количество цифр в числе) равна самому числу. Найдите все трёхзначные Армстронга.

Answer 1

Такое число для 3 разрядных чисел одно, это 512
Sub amstrong()
ctroka = 2
For i = 100 To 999
N1 = i 100
N2 = (i - 100 * N1) 10
N3 = i - 100 * N1 - 10 * N2
If (N1 + N2 + N3) ^ 3 = i Then
Cells(ctroka, 2) = i
ctroka = ctroka + 1
End If
Next i
End Sub

2543f47847f3efc7afdee13fa0aeea41.xls