Напишите программу , которая вводит число N и определяет является ли число N совершенным. Совершенные числа - это те числа, которые равны сумме своих делителей, не включая само число, но включаю единицу
Ответ
Автор - mirsaidmir
var n, i, s:integer; begin read(n); s:=0; for i:=1 to n-1 do begin if n mod i = 0 then s:=s+i; end; if s = n then writeln('sovershennoye') else writeln('ne sovershennoye'); end.