Найдите трехзначные числа, равные сумме кубов своих цифр. Подсчет суммы кубов организовать в виде функции - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

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

Решение задачи: «Найдите трехзначные числа, равные сумме кубов своих цифр. Подсчет суммы кубов организовать в виде функции»

textual
Листинг программы
function C3( n: integer ): integer ;
begin
  C3 := n*n*n;
end;
function Sum( a,b,c: integer ): integer ;
begin
  Sum := a + b + c;
end;
function SumC3( a,b,c: integer ):integer ;
begin
  SumC3 := Sum( C3(a) , C3(b) , C3(c) );
end;
 
 
var a,b,r: integer ;
var i: integer ;
begin
  for i:= 100 to 999 do begin
    if ( SumC3( i mod 10 , (i div 10) mod 10 , (i div 100) mod 10 ) = i ) then
      writeln( i );  
  end;
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Pascal ABC. Задача заключается в поиске трехзначных чисел, которые являются суммой кубов своих цифр. Для решения этой задачи были созданы три функции:

  1. Функция C3 принимает целочисленный аргумент n и возвращает сумму кубов его цифр. Внутри функции используется рекурсия для вычисления суммы кубов цифр числа n.
  2. Функция Sum принимает три целочисленных аргумента a, b и c и возвращает их сумму.
  3. Функция SumC3 принимает три целочисленных аргумента a, b и c, которые являются результатом вычисления функций C3 для a, b и c. Она также возвращает сумму этих трех чисел. В основной части кода используется цикл for, который перебирает числа от 100 до 999. Для каждого числа проверяется условие: если число является суммой кубов его цифр, то оно выводится на экран. Переменные a, b и r используются для хранения цифр числа, а переменная i используется для хранения текущего числа.

Оцени полезность:

15   голосов , оценка 3.667 из 5
Похожие ответы