pascal求正整数2到100之间的完全数完全数：因子之和等于它本身的数program cs4;var i,n,s:integer;begins:=0;for n:=2 to 100 dobeginfor i:=1 to n dobeginif n mod i =0 then s:=s+i;end;if s=n then writeln(n);s:=0;end;end.哪里出错
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/28 15:24:23
pascal求正整数2到100之间的完全数完全数：因子之和等于它本身的数program cs4;var i,n,s:integer;begins:=0;for n:=2 to 100 dobeginfor i:=1 to n dobeginif n mod i =0 then s:=s+i;end;if s=n then writeln(n);s:=0;end;end.哪里出错
pascal求正整数2到100之间的完全数
完全数：因子之和等于它本身的数
program cs4;
var i,n,s:integer;
begin
s:=0;
for n:=2 to 100 do
begin
for i:=1 to n do
begin
if n mod i =0 then s:=s+i;
end;
if s=n then writeln(n);
s:=0;
end;
end.
哪里出错啊
pascal求正整数2到100之间的完全数完全数：因子之和等于它本身的数program cs4;var i,n,s:integer;begins:=0;for n:=2 to 100 dobeginfor i:=1 to n dobeginif n mod i =0 then s:=s+i;end;if s=n then writeln(n);s:=0;end;end.哪里出错
完全数：因子（除了它本身）之和等于它本身的数
program cs4;
var i,n,s:integer;
begin
s:=0;
for n:=2 to 100 do
begin
{for i:=1 to n do}
for i:=1 to n-1 do
begin
if n mod i =0 then s:=s+i;
end;
if s=n then writeln(n);
s:=0;
end;
end.