完數，一般指完全數，一個自然數如果它的所有真因子（即除了自身以外的約數）的和等於該數，那麼這個數就是完全數，如:6的真因子有1 、2、3，6=1+2+3，所以6是一個完全數。
輸出1000以內的所有完數的程式碼如下：
Pascal語言實現如下：
var
i,j,k:integer;
begin
for i:=1 to 1000 do
k:=0;
for j:=1 to i-1 do
if i mod j=0 then inc(k,j);
if k=i then writeln(i);
end;
end.
C語言實現如下：
#include<stdio.h>void main(){ int i,j,k; for(i=1;i<=1000;i++) { k=0; for(j=1;j<=i-1;j++) if(i%j==0) k+=j; if(k==i) printf("%d\n",i); }}
輸出結果皆為
6
28
496
完數，一般指完全數，一個自然數如果它的所有真因子（即除了自身以外的約數）的和等於該數，那麼這個數就是完全數，如:6的真因子有1 、2、3，6=1+2+3，所以6是一個完全數。
輸出1000以內的所有完數的程式碼如下：
Pascal語言實現如下：
var
i,j,k:integer;
begin
for i:=1 to 1000 do
begin
k:=0;
for j:=1 to i-1 do
if i mod j=0 then inc(k,j);
if k=i then writeln(i);
end;
end.
C語言實現如下：
#include<stdio.h>void main(){ int i,j,k; for(i=1;i<=1000;i++) { k=0; for(j=1;j<=i-1;j++) if(i%j==0) k+=j; if(k==i) printf("%d\n",i); }}
輸出結果皆為
6
28
496