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

Показать ответ

Ответ:

ПУТИН222

03.10.2020 18:36

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

0,0(0 оценок)

Популярные вопросы: Информатика

ProKingcool

05.05.2020 18:43

плз я не знаю как решить скорее информатика 7 класс...

maryamromanenko1294

10.10.2020 00:48

Питон изи прога Найдите все основания систем счисления ,в которых,запись числа 30 оканчивается на 8 питон...

amura20

02.10.2022 13:27

.Операторные скобки на языке паскаль заключаются в ...

leylaevloeva

07.12.2020 03:32

Задание No5 Найдите правильную запись арифметического выражения на языке Python:34,5 - 24,515y(34.5+24.5)*15*у(34.5+24.5)/15*у(345+24,5)/(15*y)(34,5+24,5)/15y...

mariyshak57

13.12.2021 00:16

Какова основная функция маяка?...

Alinakamisarova

20.02.2023 16:23

Составьте алгоритм, позволяющий отлить 7 литров с двумя сосудами, ёмкостью 8 и 5 литров.(Можно только полностью наполнять кувшин или выливать воду из кувшина. Переливать воду из...

Zauchka17

16.08.2021 05:01

Корягини е Электронная тетрадь по информатике 5 класс («ФГос)Объекты и их имена информационное моделирование Алгоритмика Повторение итоги О программе203. Подчеркните примеры описания...

Mahaeva33

12.12.2020 06:22

Как отключить уведомления хром?...

3344227p06s57

05.04.2021 15:33

1. Какие функции выполняет датчик цвета? Произнесите ключе- вые слова урока на трех языках.2. Каковы функции блока цикл для программы движения роботапо черной линии?3. Объясните...

КираГум

20.02.2023 17:47

Решите кратко и понятно. Нужно то, что отмечено галочкой....

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку