Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!husc6!cmcl2!brl-adm!adm!11SSTEIN%GALLUA.BITNET@wiscvm.wisc.EDU
From: 11SSTEIN%GALLUA.BITNET@wiscvm.wisc.EDU
Newsgroups: comp.lang.pascal
Subject: Perfect number program
Message-ID: <9652@brl-adm.ARPA>
Date: Tue, 6-Oct-87 18:04:12 EDT
Article-I.D.: brl-adm.9652
Posted: Tue Oct  6 18:04:12 1987
Date-Received: Fri, 9-Oct-87 21:51:02 EDT
Sender: news@brl-adm.ARPA
Lines: 22



 I am working on a perfect number program and I have faced some problems.

 Notice: A perfect number is a number that has its divisors add up to itself.
 I.E. 6 = 1 + 2 + 3 = 6
     28 = 1 + 2 + 4 + 7 + 14 = 28

     All that... you have an idea on a good program?

     I tried mine and it takes TOO long. I used this program:

    FOR I=2 TO 10000 DO
    FOR K=2 TO I DO
    IF I/K = TRUNC (I/K) THEN W=W+(I/K)
  IF W=I THEN PRINT W "IS A PERFECT NUMBER"

    Forgot to add between 1st and 2nd line:

    W=0

    Any ideas?