С помощью VBA найти все натуральные числа, не превосходящие заданного числа N и равные сумме кубов своих цифр
Ответы
Ответ дал:
0
Sub Zadanie()
n = CInt(InputBox("n ="))
for i = 1 to n
t = i
s = 0
Do While t > 0
s = s + (t mod 10)^3
t = t 10
Loop
if i=s then MsgBox i
next
End Sub
n = CInt(InputBox("n ="))
for i = 1 to n
t = i
s = 0
Do While t > 0
s = s + (t mod 10)^3
t = t 10
Loop
if i=s then MsgBox i
next
End Sub
Ответ дал:
0
ввод и вывод оформляйте как вам надо
Вас заинтересует
6 лет назад
6 лет назад
8 лет назад
9 лет назад