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

Информатика | 10 - 11 классы

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

Ответить на вопрос
Ответы (1)
KaterinaLabzova 28 июл. 2020 г., 23:15:03

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.

Artemeva03 17 сент. 2020 г., 23:03:19 | 10 - 11 классы

Квадрат заданного трехзначного числа равен кубу суммы цифр этого числа?

Квадрат заданного трехзначного числа равен кубу суммы цифр этого числа.

Free pascal.

Jimova 20 июл. 2020 г., 08:21:01 | 5 - 9 классы

Определить количество натуральных трехзначных чисел сумма цифр которых равна заданному числу N?

Определить количество натуральных трехзначных чисел сумма цифр которых равна заданному числу N.

Chinianin 30 окт. 2020 г., 16:19:10 | 5 - 9 классы

Определить количество натуральных трехзначных чисел сумма цифр которых равна заданному числу N?

Определить количество натуральных трехзначных чисел сумма цифр которых равна заданному числу N.

Tany3077 11 нояб. 2020 г., 16:26:38 | 10 - 11 классы

Вывести точные квадраты натуральных чисел, не превосходящие данного числа Nна языке VBA?

Вывести точные квадраты натуральных чисел, не превосходящие данного числа N

на языке VBA.

Drashchiker 21 февр. 2020 г., 23:43:56 | 5 - 9 классы

Дано натуральное число n?

Дано натуральное число n.

Найти сумму первой и последней цифры этого числа.

Глупыйшкольник 23 сент. 2020 г., 11:34:24 | 5 - 9 классы

Определить равен ли квадрат заданного четырехзначного числа кубу суммы цифр этого числа?

Определить равен ли квадрат заданного четырехзначного числа кубу суммы цифр этого числа.

Katerina2504 20 июл. 2020 г., 19:07:30 | 5 - 9 классы

Определить существует ли натуральное двузначное число равное 4 степени суммы всех своих цифр?

Определить существует ли натуральное двузначное число равное 4 степени суммы всех своих цифр.

(Паскаль).

Nrodionov2000 22 нояб. 2020 г., 21:15:29 | 5 - 9 классы

Если трёхзначное число равно сумме кубов цифр, образующихэто число, то такое число называется «магическим»?

Если трёхзначное число равно сумме кубов цифр, образующих

это число, то такое число называется «магическим».

Найти и вывести все

«магические числа».

(Написать функцию вычисления суммы кубов цифр

трёхзначного числа).

Паскаль, через функции пользователя.

Dilyara111111 25 окт. 2020 г., 16:35:34 | 10 - 11 классы

Дано трехзначное натуральное число?

Дано трехзначное натуральное число.

Найти разность между заданным числом и суммой его цифр.

Написать рограмму в паскале

ПОЖАЛУЙСТА до завтра нужно.

Slava026 3 дек. 2020 г., 17:25:24 | 10 - 11 классы

Натуральное число называется автоморфным, если оно равно последним цифрам своего квадрата?

Натуральное число называется автоморфным, если оно равно последним цифрам своего квадрата.

Например, 25² = 625.

Напишите программу, которая получает натуральное число N и выводит на экран все автоморфные числа, не превосходящие N.

Перед вами страница с вопросом С помощью VBA найти все натуральные числа, не превосходящие заданного числа N и равные сумме кубов своих цифр?, который относится к категории Информатика. Уровень сложности соответствует учебной программе для учащихся 10 - 11 классов. Здесь вы найдете не только правильный ответ, но и сможете ознакомиться с вариантами пользователей, а также обсудить тему и выбрать подходящую версию. Если среди найденных ответов не окажется варианта, полностью раскрывающего тему, воспользуйтесь «умным поиском», который откроет все похожие ответы, или создайте собственный вопрос, нажав кнопку в верхней части страницы.