Question

Вывести все совершенные числа в промежутке от 1 до 100 . Совершенное число это натуральное число равное сумме своих собственных делителей(отличных от самого числа)

Answer 1

Var i, j, s: integer;

Begin
    For j:=1 to 100 do
    Begin
         s := 0;
         For i := 1 to (j div 2) do
             if (j mod i = 0) then s := s + i;
         if (j = s) then writeln(s);
    End;
End.

Answer 2

Для вывода всех совершенных чисел в промежутке от 1 до 100, мы можем написать программу, используя язык программирования Python. Вот код, который решает эту задачу:

def find_perfect_numbers(start, end):
    perfect_numbers = []
    for num in range(start, end + 1):
        divisors = []
        for i in range(1, num):
            if num % i == 0:
                divisors.append(i)
        if sum(divisors) == num:
            perfect_numbers.append(num)
    return perfect_numbers

start = 1
end = 100
perfect_numbers = find_perfect_numbers(start, end)
print("Совершенные числа в промежутке от", start, "до", end, ":")
print(perfect_numbers)

Объяснение кода: - Мы создаем функцию `find_perfect_numbers`, которая принимает начальное и конечное значение промежутка. - Внутри функции мы создаем пустой список `perfect_numbers`, в который будем добавлять найденные совершенные числа. - Затем мы используем цикл `for`, чтобы пройти по всем числам в заданном промежутке. - Для каждого числа `num` мы создаем пустой список `divisors`, в который будем добавлять делители числа `num`. - Затем мы используем вложенный цикл `for`, чтобы найти все делители числа `num`. Мы проверяем, делится ли число `num` на каждое число от 1 до `num-1` без остатка. Если делится, то это число добавляется в список `divisors`. - После того, как мы нашли все делители числа `num`, мы суммируем их с помощью функции `sum()` и сравниваем с числом `num`. Если сумма делителей равна числу `num`, то это число является совершенным, и мы добавляем его в список `perfect_numbers`. - В конце функции мы возвращаем список `perfect_numbers`. - Затем мы устанавливаем начальное и конечное значения промежутка (`start` и `end`) и вызываем функцию `find_perfect_numbers`, передавая эти значения. - Результат функции сохраняется в переменной `perfect_numbers`. - Наконец, мы выводим список совершенных чисел на экран.

Результат: ``` Совершенные числа в промежутке от 1 до 100 : [6, 28] ```

В данном случае, совершенными числами в промежутке от 1 до 100 являются 6 и 28.