С помощью VBA найти все натуральные числа, не превосходящие заданного числа N и равные сумме кубов своих цифр

Question

Информатика

Марея

6 января, 23:20

С помощью VBA найти все натуральные числа, не превосходящие заданного числа N и равные сумме кубов своих цифр

+1

Ответы (1)

Знаете ответ?

Эмилианка · Answer 1

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