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

Ответ:

775svetik

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 оценок)

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

Серафим6776

08.07.2021 08:33

Внекотором каталоге хранился файл txt.doc. после того, как в этом каталоге создали подкаталог и переместили в созданный подкаталог файл txt.doc, полное имя файла стало р: doc\ txt...

ironthewolf72

08.07.2021 08:33

Составьте программу либо через функцию или можно через процедуру: 1)вычислить сумму квадратов простых чисел,лежащих в интервале (m,n). 2)вычислить сумму простых не превосходящих...

гвст

02.03.2021 11:10

перевести числа:6,25; 32,79; 17,89 из 10 с/с в 2 с/с...

Nick12321

28.05.2022 11:27

(НАПИШИТЕ НА PYTHON) (НАПИШИТЕ НА PYTHON) Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 7 и оканчивающихся на 2. Программа...

Aruna0001

10.07.2020 23:17

Исправьте ошибки чтобы запустилась программа в паскале program Number_of_mounth var begin month:byte; write( Введите номер месяца: ); readln(month); if(month 1)or(month 12)then...

Рапунцель06

23.06.2022 15:03

1)Требуется определить, бьёт ли король, стоящий на клетке с указанными координатами (номер строки и номер столбца), фигуру, стоящую на другой указанной клетке. Вводятся четыре числа:...

kri2221

10.11.2021 03:05

Алгоритмы Циклические алгоритмы Определите значение переменной b после выполнения фрагмента алгоритма. ...

maksikus1

30.05.2021 04:18

быстрее плз!!Сколько трёхзначных чисел можно составить из цифр 0, 3, 9 при условии, что цифры не должны повторяться?...

arkadikmxitary

06.01.2022 13:43

8 КЛАСС РЕШИТЕ составить две программы и записать в тетрадь к следующим задачам: 1) Вычислить и вывести на экран кол-во воды, если перед вами стоит задача полностью наполнить водой...

doblesn

21.08.2020 06:25

8 КЛАСС Вычислить и вывести на экран кол-во воды, если перед вами стоит задача полностью наполнить водой бассейн....

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

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