Предмет: Информатика, автор: maksprivalov01

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

Ответы

Автор ответа: BobbyFresnel
0

===== 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.

Похожие вопросы
Предмет: Русский язык, автор: ainur300501