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

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

↓

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

Прайм231

08.10.2022 04:02

0,32 в двоичной системе и в восьмеричной системе...

mixtalalai2017

08.10.2022 04:02

За ранее как число 845 перевести из десятичной в восьмеричную? ?...

keklol291

31.03.2023 20:39

Мне отправили какаето ссылку, я перешёл и увидел это !...

nastushka208

31.03.2023 20:39

Замени шестнадцатеричную цифру d четырьмя двоичными цифрами...

onion2

31.03.2023 20:39

Найти первый отрицательный элемент массива с цикла с постусловием repeat тело until условие напишите программу на паскале...

Варежкамяу

31.03.2023 20:39

Сколько существует различных символьных последовательностей длиной в 4 символа в пятибуквенном алфавите, состоящем из множества букв {к, н, и, г, а}?...

kmullagalieva

31.03.2023 20:39

Уисполнителя сумматор две команды, которым присвоены номера: 1. прибавь 1 2. умножь на x (x - неизвестное положительное число) выполняя первую из них, сумматор отнимает от...

ishimovaalbina

04.01.2022 00:28

Складіть програму для знаходження суми чисел кратних трьом, які розташовані в інтервалі (100; 300). lazarus....

nurgisaabish12345

14.02.2021 00:02

Решить по информатике через pascalabc. дана строка, содержащая дефис (например: город-герой). поменяйте 2 слова между собой, чтобы получилось наоборот (герой-город). заранее...

sergeygrachev

14.02.2021 00:02

Слова в тексте разделены пробелом. напишите программу, выводящая количество символов в каждом слове, через pascalabc....

Ответ:

очароваш

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 Оформи подписку