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.