网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
2、编写程序：找到1000以内的所有完数（一个数等于除去其本身外所有因子之和，6=1+2+3）。
参考答案和解析
For i=1 to 1000 s=0 For j=1 To i-1 If i mod j=0 Then s=s+j Next If s=i Then Print iNext
更多 “2、编写程序：找到1000以内的所有完数（一个数等于除去其本身外所有因子之和，6=1+2+3）。” 相关考题
考题
有一个数列，它的前3个数为0，1，1，此后的每个数都是其前面3个数之和，即0，1，1，2，4，7，13，24，……要求编写程序输出该数列中所有不超过1000的数。某人编写程序如下：Private Sub Form_Click()Dim i As Integer，a As Integer，b As IntegerDim C As Integer，d As Integera=0：b=1：c=1d=a+b+Ci=5While d=1000Print d；a=b：b=C：C=dd=a+b+ci=i+1WendEnd Sub运行上面的程序，发现输出的数列不完整，应进行修改。以下正确的修改是A．把While d=1000改为While d1000B．把i=5改为i=4C．把i=i+1移到While d=1000的下面D．在i=5的上面增加一个语句：Print a；b；c；
考题
阅读以下说明、Java代码，将应填入(n)处的字句写在对应栏内。【说明】本程序输出10000之内的所有完全数。完全数是指等于其所有因子和(包括1，但不包括这个数本身)的数。例如：6=1×2×3，6=1+2+3，则6是一个完全数。【程序】public class PerfectNum{Public static void main(String args[]){int count=1;for(int i=1; i＜10000; i++){int y=0;for(int j=1; j＜i; j++)if((1))y=(2)if((3)){System.out.print( (4) +String.valueOf('\t'));(5)If(count%3==0)System.out.printin();}}}
考题
有一个数列，它的前3个数为0，1，1，此后的每个数都是其前面3个数之和，即0，1，1，2，4，7，13，24，… 要求编写程序输出该数列中所有不超过1000的数。 某人编写程序如下： Private Sub Form. Click（ ） Dim i As Intender，a As Integer，b As Integer Dim C As Integer，d As Integer a=0：b=1：c=1 d=a4-b4-c i=5 While d=1C00 Print d； a=b：b=c：c=d d=a+b+c i=i+1 Wend End Sub 运行上面的程序。发现输出的数列不完整，应进行修改。以下正确的修改是（ ）。A.把While d=1000改为while d1000B.把i=5改为i=4C.把i=i+1移到While d=1000的下面D.在i=5的上面增加一个语句：Print a；b；C；
考题
给定程序MODII．C中，函数fun的功能是判断整数n是否是”完数”。当一个数的因子之和恰好等于这个数本身时，就称这个数为”完数”。例如：6的因子包括1、2、3，而6=1+2+3，所以6是完数。如果是完数，函数返回值为1，否则函数返回值为0。数组a中存放的是找到的因子，变量k中存放的是因子的个数。请改正函数fun中指定部位的错误，使它能得出正确的结果。注意：不要改动main函数，不得增行或删行，也不得更改程序的结构。试题程序：
考题
阅读以下说明和流程图，填写流程图中的空缺，将解答填入答题纸的对应栏内。【说明】如果一个自然数N恰好等于它所有不同的真因子（即N的约数以及1，但不包括N）之和S，则称该数为“完美数”。例如6＝1＋2＋3，28＝1＋2＋4＋7＋14，所以6和28都是完美数。显然，6是第1个（即最小的）完美数。下面流程图的功能是求500以内所有的完美数。【流程图】
循环开始框中要注明：循环变量＝初始值，终值［，步长］，步长为1时可以缺省。如果某自然数小于其所有真因子之和（例如24＜1＋2＋3＋4＋6＋8＋12），则称该自然数为亏数；如果某自然数大于其所有真因子之和（例如8＞1＋2＋4），则称该自然数为贏数；如果某自然数等于从1开始的若干个连续自然数之和（例如10＝1＋2＋3＋4）则称该自然数为三角形数。据此定义，自然数496是（ ）。供选择答案：A.亏数 B.赢数 C.完美数，非三角形数 D.完美数和三角形数
考题
单选题在一个图G中，所有顶点的度数之和等于所有边数之和的（）倍。A
1B
1/2C
2D
4
热门标签
最新试卷