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

Question

Информатика

Мокей

3 января, 20:09

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

+3

Ответы (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