Твердость , плотность , масса
либо C либо D
<span>Решение должно иметь от 20 до 5000 символов</span>
Что напиши еще раз и я отвечу на этот вопрос! !
===== 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.