Вопрос, который вызвал трудности

Напишите логическую функцию которая определяет верно ли что число N - совершенное, т.е. равно сумме своих делителей, меньших его самого

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «Информатика». Ваш вопрос звучал так:

Напишите логическую функцию которая определяет верно ли что число N - совершенное, т.е. равно сумме своих делителей, меньших его самого

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

//Другой вопрос где найти такое число.
//Pascal ABC.NET v3.0 сборка 1111

function Abso(n:integer):boolean;
 Var
  i,k:integer;
 begin
 k:=0;
  for i:=1 to n div 2 do
   if n mod i=0 then k:=k+i;
 if k=n then Abso:=true else Abso:=false;
 end;