完数是指:数的各因子之和正好等于该数本身(例如6的因子是1,2,3,而 1+2+3=6,所以6是完数) Clear Nc=0 For n1=1 to 1000 M=0 For n2=1 to n1-1 If n1/n2=mod(n1,n2) M=m+n2 Endif Endfor If n1=m n1 Nc=nc+1 Endif Endfor Wait window "完整的个数为"+STR(NC) 哪里错了啊?
我优化一下楼上代码。在第二个for(求因子)可以改成。for(j=1;j<=(i/2+1);j++)因其因子不可能大于这个数的一半,为防奇数,所以再加1。这样,这部分能省一半时间。
1java:7.找出1000以内的所有的完全数。完全数是指等于其所有因子和的数(包括1因子,但1不是完全数);例如:6的因子有1、2、3,并且6=1+2+3,则6是完全数。 2【题目】java:7.找出1000以内的所有的完全数。完全数是指等于其所有因子和的数(包括1因子,但1不是完全数);例如:6的因子有1、2、3,并且6=1+...
include<stdio.h> int main(){ int i,j,s;for(i=2;i<=1000;i++){ s=1;for(j=2;j<=i/2;j++)if(i%j==0)s+=j;if(s==i)printf("%d\n",i);} getch();return 0;}
题目:一个数如果恰好等于它的因子之和,这个数就称为“完数”。例如6=1+2+3.编程找出1000以内的所有完数。 2. 分析 3. 代码示例 代码语言:javascript 复制 main(){staticint k[10];int i,j,n,s;for(j=2;j<1000;j++){n=-1;s=j;for(i=1;i{if((j%i)==0){n++;s=s-i;k[n]=i;}}if...
C语言一个数如果恰好等于它的因子之和,这个数就称为“完数”。例如6=1+2+3.编程找出1000以内的所有完数。,程序员大本营,技术文章内容聚合第一站。
例55:一个数如果恰好等于它的因子之和,这个数就称为完数,C语言编程找出1000之内的所有完数,并输出其因子。 解题思路:6的因子为1,2,3,而6=1+2+3,因此6是“完数”,1不用判断,直接从2开始,因为1的因子只有1 源代码演示: 代码语言:javascript 复制 ...
Module Module1 Sub Main() Dim i, j, k As Integer For j = 2 To 1000 k = 0 For i = 1 To j / 2 If j Mod i = 0 Then k = k + i End If Next If j = k Then Console.WriteLine("完全数为" & k) End If ...
C语言 对于一个自然数,如果该数所有因子之和正好等于该数,则该数称为完数。找出1000以内的所有完数,并输出它的所有因子。,程序员大本营,技术文章内容聚合第一站。
VFP求帮忙改错 找出1000以内的所有完数,并统计个数. 完数是指:数的各因子之和正好等于该数本身(例如6的因子是1,2,3,而 1+2+3=6,所以6是完数)