free pascal定义一个函数,输出2到n之间的全部完全数(一行一个数) 完全数:因子之和等于它本身的自然数,
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/07/22 10:04:37
free pascal定义一个函数,输出2到n之间的全部完全数(一行一个数) 完全数:因子之和等于它本身的自然数,
输入:7
输出:6
希望过程能简短些,
输入:7
输出:6
希望过程能简短些,
![free pascal定义一个函数,输出2到n之间的全部完全数(一行一个数) 完全数:因子之和等于它本身的自然数,](/uploads/image/z/8542047-39-7.jpg?t=free+pascal%E5%AE%9A%E4%B9%89%E4%B8%80%E4%B8%AA%E5%87%BD%E6%95%B0%2C%E8%BE%93%E5%87%BA2%E5%88%B0n%E4%B9%8B%E9%97%B4%E7%9A%84%E5%85%A8%E9%83%A8%E5%AE%8C%E5%85%A8%E6%95%B0%28%E4%B8%80%E8%A1%8C%E4%B8%80%E4%B8%AA%E6%95%B0%29+%E5%AE%8C%E5%85%A8%E6%95%B0%EF%BC%9A%E5%9B%A0%E5%AD%90%E4%B9%8B%E5%92%8C%E7%AD%89%E4%BA%8E%E5%AE%83%E6%9C%AC%E8%BA%AB%E7%9A%84%E8%87%AA%E7%84%B6%E6%95%B0%2C)
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;是什么意思?
再答: 自定义函数中的局部变量,不懂可以百度一下
再问: 格式......格式能好一点么?似乎错了你
再答: 对的
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).