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