Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
19
Task/Perfect-numbers/ERRE/perfect-numbers.erre
Normal file
19
Task/Perfect-numbers/ERRE/perfect-numbers.erre
Normal file
|
|
@ -0,0 +1,19 @@
|
|||
PROGRAM PERFECT
|
||||
|
||||
PROCEDURE PERFECT(N%->OK%)
|
||||
LOCAL I%,S%
|
||||
S%=1
|
||||
FOR I%=2 TO SQR(N%)-1 DO
|
||||
IF N% MOD I%=0 THEN S%+=I%+N% DIV I%
|
||||
END FOR
|
||||
IF I%=SQR(N%) THEN S%+=I%
|
||||
OK%=(N%=S%)
|
||||
END PROCEDURE
|
||||
|
||||
BEGIN
|
||||
PRINT(CHR$(12);) ! CLS
|
||||
FOR N%=2 TO 10000 STEP 2 DO
|
||||
PERFECT(N%->OK%)
|
||||
IF OK% THEN PRINT(N%)
|
||||
END FOR
|
||||
END PROGRAM
|
||||
Loading…
Add table
Add a link
Reference in a new issue