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

Question

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

Информатика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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