free pascal定义一个函数,输出2到n之间的全部完全数(一行一个数) 完全数：因子之和等于它本身的自然数,

来源：学生作业帮编辑：大师作文网作业帮分类：综合作业时间：2024/11/12 00:46:52

free pascal定义一个函数,输出2到n之间的全部完全数(一行一个数) 完全数：因子之和等于它本身的自然数,
输入：7
输出：6
希望过程能简短些,

var i,n:longint;
function ys(x:longint):longint;
var i:longint;
begin
ys:=0;
for i:=1 to x div 2 do
if x mod i=0 then ys:=ys+i;
end;
begin
read(n);
for i:=6 to n do
if ys(i)=i then write(i,' ');
end.
再问：解释解释~~~解释就采纳
再答：就是列出所有的因子，判断是否等于原数，有点像判断质数
再问：那： var i,n:longint; function ys(x:longint):longint var i:longint; 为什么要两个var？还有：function ys(x:longint):longint;是什么意思？
再答：自定义函数中的局部变量，不懂可以百度一下
再问：格式......格式能好一点么？似乎错了你
再答：对的

free pascal定义一个函数,输出2到n之间的全部完全数(一行一个数) 完全数：因子之和等于它本身的自然数, vb 如果一个数的因子之和等于这个数的本身,则称这样的数为完全数. [free pascal]完全数 pascal求正整数2到100之间的完全数求1000以内的完数.完数是指一个数所有因子之和等于它本身如果一个数的因子和等于这个数本身,则称这样的数为“完全数”.编写VB程序,求1～500之间的完全数求正整数2和100之间的完全数.完全数：因子之和等于本身的数.如6=1+2+3. 编程：求1000以内的所有完全数.（说明：一个数如果恰好等于它的因子—（自身除外）之和,则称该数为完全打印出1000以内的所有“完全数”.完全数是指一个正整数,其所有小于该数的因子之和等于该数本身.例如：6 free pascal 完全平方数 VB编程题求编写：如果一个数的因子之和等于这个数的本身,则称这样的数为“完全数”.例如,整数28的因子为1,2,4,7 急求用C#编写一个程序:求2－100中的完数（因子之和等于它本身的数称为完数,如6＝1+2+3）.