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

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

Obcenceee

06.03.2020 06:11

Какие существуют аппаратные защиты информации?...

alexeyvinogradp0do9x

06.03.2020 06:11

Для запуска cd- или dvd-дисковода требуется слишком много времени, или дис-ководу не удается прочитать диск? дайте ответ...

nastyagosteva

03.07.2020 13:27

Составьте алгоритм (блок-схему) и напишите программу, которая заполняет двумерный массив B размерностью 7х3 по формулам: в паскале ABC только в нем очень надо...

J980

28.06.2021 21:12

Задача №304. Билеты на метро Ввод и вывод данных производятся через стандартные потоки ввода-вывода. Билет на одну поездку в метро стоит 15 рублей, билет на 10 поездок стоит 125 рублей,...

Zay4565

10.10.2020 11:25

1) Что такое система управления базами данных, каким возможностями они обладают? 2) Какие простые СУБД вам уже знакомы, назовите основные их отличия? 3) Перечислите (в развернутой...

ego1917

12.08.2020 21:37

Построить таблицу истинности!...

olga877

09.01.2021 20:53

Составьте таблицы истинности. (60 )...

усман14

27.07.2021 04:58

1. сколько компьютеров можно установить в помещении с площадью 100 кв. м. высотой 3,5 м, не нарушая санитарных норм? 1. 17 2. 16 3. 15 4. 14 5. произвольное количество, по согласованию...

Kuznecovanaste

08.02.2023 01:46

отмечу, как лучший ответинформатика 9 класс...

TRЮM

31.08.2021 03:03

в языке запросов поискового сервера для обозначения логической операции«или» используется символ «», а для логической операции «и» — символв таблице запросы и количество найденных...

Ответ:

Fanapav

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

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

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