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

Ответы:

АНЖЕЛА ДАНИЛЕНКО

03-03-2019 00:05

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

Также наши пользователи интересуются:

Магазин протягом трьох днів продав усю завезену картоплю. Першого дня продали 32% усієї картоплі, другого - 40%, а третього - решту 224 кг. Скільки кг картоплі було завезено Найти корень уравнения 8 2-x=64

Картинка с текстом вопроса от пользователя Ксюша Литвинова

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «С помощью VBA найти все натуральные числа, не превосходящие заданного числа N и равные сумме кубов своих цифр » от пользователя Ксюша Литвинова в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!