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

Ответ

Автор - BobbyFresnel

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

Предыдущий вопрос Следующий вопрос

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.