Такое число для 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
<span>End Sub</span>
7210 / 2 = 3605 (0)
3605 / 2 = 1802 (1)
1802 / 2 = 901 (0)
901 / 2 = 450 (1)
450 / 2 = 225 (0)
225 / 2 = 112 (1)
112 / 2 = 56 (0)
56 / 2 = 28 (0)
28 / 2 = 14 (0)
14 / 2 = 7 (0)
7 / 2 = 3 (1)
3 /2 = 1 (1)
1/2 = 0 (1)
записываем остатки в обратном порядке и получаем
1110000101010
алг
нач
цел a, b, c, d, e
вывод "введите a"; ввод a
вывод "введите b"; ввод b
вывод "введите c"; ввод c
e := div((a+b+c),3)
вывод e
кон
A \ c \ c(ОТРИЦ) \ A<C(Отриц)
0 \ 0 \ 1 \ 0
0 \ 1 \ 0 \ 0
1 \ 0 \ 1 \ 1
1 \ 1 \ 0 \ 0