Question

Решите подалуйста задачу на PascalABC 3. Напишите функцию, находящую сумму делителей числа, включая единицу и исключая само число. Используя ее, определите, какое из пяти заданных чисел является совершенным (число равно сумме своих делителей).

Answer 1

// скачайте файл, картинка для посмотреть

Answer 2

Я могу помочь вам с решением задачи на PascalABC 3. Вот функция, которая находит сумму делителей числа, включая единицу и исключая само число:

function SumOfDivisors(n: integer): integer;
var
  i, sum: integer;
begin
  sum := 0;
  for i := 1 to n - 1 do
    if n mod i = 0 then
      sum := sum + i;
  SumOfDivisors := sum;
end;

Используя эту функцию, вы можете определить, какое из пяти заданных чисел является совершенным. Совершенное число - это число, которое равно сумме своих делителей. Например, 6 - совершенное число, потому что 6 = 1 + 2 + 3. Вот пример программы, которая проверяет пять чисел на совершенство:

var
  a, b, c, d, e: integer;
begin
  readln(a, b, c, d, e); // вводим пять чисел
  if SumOfDivisors(a) = a then
    writeln(a, ' - совершенное число');
  if SumOfDivisors(b) = b then
    writeln(b, ' - совершенное число');
  if SumOfDivisors(c) = c then
    writeln(c, ' - совершенное число');
  if SumOfDivisors(d) = d then
    writeln(d, ' - совершенное число');
  if SumOfDivisors(e) = e then
    writeln(e, ' - совершенное число');
end.

Надеюсь, это поможет вам с решением задачи. Удачи!