Question

Помогите пожалуйста. Написать код программы по проверке совершенности числа, введенного с клавиатуры (совершенное число - это число, равное сумме своих делителей; например, число 6 - совершенное, так как 1 + 2 + 3 = 6, а 1, 2 и 3 - это и есть все делители числа 6)

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var s := 1;

 for var i := 2 to n div 2 do

   if n mod i = 0 then

     s += i;

 if s = n then

   Println('Совершенное')

 else

   Println('Несовершенное')

end.

Answer 2

Конечно, вот пример кода на Python для проверки, является ли введенное число совершенным:

pythonCopy code
def is_perfect_number(number):
    # Инициализируем сумму делителей
    divisor_sum = 0
    
    # Перебираем числа от 1 до number - 1
    for i in range(1, number):
        if number % i == 0:
            divisor_sum += i

    # Проверяем, является ли сумма делителей равной введенному числу
    if divisor_sum == number:
        return True
    else:
        return False

# Получаем число от пользователя
try:
    num = int(input("Введите число: "))
    if is_perfect_number(num):
        print(f"{num} - совершенное число")
    else:
        print(f"{num} - не совершенное число")
except ValueError:
    print("Введите целое число")

Этот код сначала определяет функцию is_perfect_number, которая принимает число и проверяет, является ли оно совершенным. Затем код запрашивает у пользователя ввод числа, вызывает функцию is_perfect_number и выводит соответствующее сообщение.