Basic은 10000 이내의 완벽수를 구한다

1333 단어 완벽수완전수
완전수(Perfect number)는 완벽수 또는 완비수라고도 불리는 특수한 자연수이다.그것의 모든 진인자(즉 자신을 제외한 약수)의 합(즉 인자 함수)은 그것 자체와 꼭 같다.

Dim a as Integer,b as Integer,c as Integer
For a = 1 To 10000
c = 0
For b = 1 To a \ 2
If a Mod b = 0 Then c = c + b
Next b
If a = c Then Print Str(a)
Next a
자바 버전 코드 추가

import java.util.ArrayList; 
public class T013 { 
  public static void main(String[] args){ 
    ArrayList p = new ArrayList(); //   
    int count = 0; //  ( ) 
    int sum;  // sum = ( ) 
    for(int i=2;i<10000;i++){  //   i 
      sum = 0; 
      for(int j=1;j<i/2+1;j++){ 
        if(i%j==0){  
          p.add(j);  //   i   
          sum += j;  //  sum(i ) 
        } 
      } 
      if(sum==i){   //   i  , (i= ) 
        count++; 
        System.out.printf("%4d"+"  , "+i+"=",i); 
        for(int k=0;k<p.size()-1;k++){ 
          System.out.print(p.get(k)+"+"); 
        } 
        System.out.println(p.get(p.size()-1)); 
      } 
      p.clear(); //   i  , , i 。 
    } 
    System.out.println("
"+count+" !"); } }
위에서 말한 것이 바로 본문의 전체 내용입니다. 여러분이 좋아하시기 바랍니다.

좋은 웹페이지 즐겨찾기