Question

pascal编程 编程输出10000以内的所有完全数。 要有过程，和分析。

Answer 1

你好，这道题目这样思考：
所为完全数，就是这个数除了它本身的约数之和也等于这个数，比如说6的约数有1、2、3，而1+2+3=6，所以6是个完全数。
这题，我们先枚举出1到10000中的所有数字，逐一找出这个数的全部约数，把他们加起来，最后看看约束的总和是否等于这个数便可以了。
程序如下：
program lxc;
var
i,j,k:integer;

begin //主程序
for i:=1 to 10000 do //从1到10000枚举 i
begin //开始逐一处理这10000个数
k:=0; //k表示约数之和，初始化为0。
for j:=1 to i div2 do //因为一个数的约数肯定小于这个数，而且肯定小于或等于这个数的一半，所以现在要枚举所有比i小的数就是1到 i div 2。
if i mod j = 0 then //当i mod j=0时，意味着j可以被i整除，表明这个j是i的约数
k:=k+j; //所以，把k加上这个约数。
if k=i then writeln(i); //最后，找到所有约数并将它们的值全部加进k后，当k和i相等时，i是完全数，那么就输出i
end; //枚举完毕
end. //收工。

运行结果：
6
28
496
8128

谢谢，祝你好运！

Answer 2

完全数指的是数的因子之和等于它本身的数

var i,j,s:integer;
begin
for i:=1 to 10000 do
begin
s:=0;
for j:=1 to i div 2 do
if i mod j =0 then s:=s+j;
if s=i then writeln(i);
end;
end.

Answer 3

var
i,s,j:longint; 定义
begin
for i:=3 to 10000 do 3到10000每个数找一次
begin
for j:=2 to i div 2 do 试除
if i mod j=0 then 如果是它的因子
s:=s+j; 加起来
if s=i then 最后判断如果因子和等于本身就输出
writeln(i);
s:=0; 计数的重新设置为0
end;
end.