Дано n. Получите все совершенные числа, меньше n.

[Anvilion]

Здраствуйте, помогите пожалуйста решить очень легкую программу в C:
Дано натуральное n. Получить все совершенные числа меньше n. (как я понял: натуральное число называется совершенным, если оно равно сумме всех делителей, кроме себя, пример: 6=1+2+3)

[alex_fcsm]

var i,n:integer;

function Sum(x:integer):integer;
var res,j:integer;
begin
res:=0;
for j:=1 to x-1 do
   if x mod j=0 then res:=res+j;
   Sum:=res;
end;

begin
readln(n);
for i:=1 to n-1 do
 if Sum(i)=i then writeln(i);
end.

Незаметил, что С

[Anvilion]

А как будет та же программа в C++?

[Reskov]

int del(int n)
{
int s=1;
for (int i=2;i<n-1;i++)
if (!(n%i)) s+=i;
return s;
}
int main()
{
   int n;
   scanf("%d",&n);

   for (int i=1;;i<n;i++)
   if (del(i)==i) printf("%d\n",i);
   getch();
        return 0;
}

Если надо код можно ускорить!!!

[Анна94]

Здравствуйте, а не могли бы эту же задачу в бэйсике написать??