百度作业网pascal求正整数2到100之间的完全数
来源：学生作业帮 编辑：百度作业网作业帮 分类：综合作业 时间：2024/08/14 21:52:55
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.
哪里出错啊
完全数：因子之和等于它本身的数
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.
哪里出错啊
完全数：因子（除了它本身）之和等于它本身的数
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.
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.
pascal求正整数2到100之间的完全数
free pascal定义一个函数,输出2到n之间的全部完全数(一行一个数) 完全数：因子之和等于它本身的自然数,
求正整数2和100之间的完全数.完全数：因子之和等于本身的数.如6=1+2+3.
用pascal求2到1000的亲密数对
正整数n到n+100之间有六个完全平方数,n有几个
[free pascal]完全数
pascal 编程 1、统计1到200000000之间只含有数字0和1的这些的数的个数,如1,10,11,100等.2、
Pascal 语言输入一个正整数,求出它的所有素因子,每两个数之间用一个空格隔开
求一个最小的正整数,它乘以2后是完全平方数,乘以3后是完全立方数.
已知a是正整数,且a^2+2004a是一个正整数的完全平方数,求a的最大值
pascal【FOR】完全平方数
free pascal 完全平方数