С помощью VBA найти все натуральные числа, не превосходящие заданного числа N и равные сумме кубов своих цифр
С помощью VBA найти все натуральные числа, не превосходящие заданного числа N и равные сумме кубов своих цифр
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы