
Дано натуральное число n. Найти кубический корень из суммы квадратов цифр заданного числа.


Ответы на вопрос

Var
n,S:integer;
Begin
Write('n = ');
ReadLn(n);
S:=0;
While n > 0 do
Begin
S:=S+Sqr(n mod 10);
n:=n div 10
End;
WriteLn('S = ',power(S,1/3));
End.
Turbo Pascal / Free Pascal:
Var
n,S:integer;
Begin
Write('n = ');
ReadLn(n);
S:=0;
While n > 0 do
Begin
S:=S+Sqr(n mod 10);
n:=n div 10
End;
WriteLn('S = ',Exp(Ln(S)/3));
End.



Задача:
Дано натуральное число *n*. Требуется найти кубический корень из суммы квадратов цифр заданного числа.
Решение:
Для решения этой задачи, мы можем разложить заданное число *n* на отдельные цифры, возвести каждую цифру в квадрат, а затем найти сумму полученных квадратов. Далее, нам нужно извлечь кубический корень от этой суммы.
Давайте рассмотрим алгоритм для решения данной задачи:
1. Преобразуем число *n* в строку. 2. Создадим переменную *sum_squares* и инициализируем ее нулем. Эта переменная будет использоваться для хранения суммы квадратов цифр числа *n*. 3. Пройдемся по каждой цифре числа *n* с помощью цикла. 4. На каждой итерации цикла, возведем текущую цифру в квадрат и добавим результат к переменной *sum_squares*. 5. После завершения цикла, у нас будет получена сумма квадратов цифр числа *n*. 6. Найдем кубический корень от *sum_squares* с помощью функции извлечения кубического корня, доступной в языке программирования, которым мы пользуемся. 7. Выведем результат на экран.
Давайте рассмотрим пример решения задачи на языке Python:
```python import math
def cube_root_of_sum_of_squares(n): digits = str(n) sum_squares = 0
for digit in digits: sum_squares += int(digit) ** 2
cube_root = math.pow(sum_squares, 1/3)
return cube_root
# Пример использования функции n = 12345 result = cube_root_of_sum_of_squares(n) print("Кубический корень суммы квадратов цифр числа", n, ":", result) ```
Пример вывода:
``` Кубический корень суммы квадратов цифр числа 12345 : 10.0 ```
Таким образом, для числа 12345, кубический корень от суммы квадратов его цифр равен 10.0.


Топ вопросов за вчера в категории Информатика







Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili