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

Ответ:

NaStYтуут

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

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

Cill109

10.11.2022 04:02

В кодировке Unicode на каждый символ отводится два байта. Определи информационный объём текста из 33 символов в этой кодировке...

vlad09101986

04.07.2021 11:38

Буратино сел в автобус. в автобусе, кроме него, было ещё 17 пассажиров. на первой остановке в автобус вошло 6 зайцев, а вышло 2. на второй остановке вошло ещё 10...

Raterford

04.07.2021 11:38

Написать программу и блок-схему. дано три числа a,b,c.найти среди них минимальное?...

HELPLIZA1

24.03.2020 14:07

с информатикой 1)Каким не может быть задан алгоритм? 1. формульным2.на языке программирования3.графическим4.словесным2)Запишите значение переменной а, полученное...

лера2345

23.08.2020 19:25

Запишите через пробел значения элементов массива, сформированного следующим образом:for i:=1 to 7 do a[ i ]:= i - 3;...

Всезнаюшка15

10.03.2021 05:32

Что означает запись А3:А20 в MS Excel?...

VikaS11111

25.03.2023 09:30

Перед тобой имя файла с расширением. Укажи, какой файл перед тобой. Упражнение.jpg - (архиватор, текстовый документ, графический, звуковой фал)...

danmirlav

25.07.2022 10:16

Укажите правильный порядок действий для вычисления с встроенной функции *...

8877580

25.07.2022 10:16

В какой проге на телефоне написать резюме ?...

БродилаПоЛесу

21.05.2023 19:13

Дано описание. В состав автомобиля входят: форсунки, аккумулятор, глушитель, амортизаторы. Какие имена используются в описании данного объекта? Только общие имена...

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

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