Anonymous user
Perfect numbers: Difference between revisions
Added solution for Action!
(Added solution for Action!) |
|||
Line 470:
Perfect : 8070450532247928832
</pre>
=={{header|Action!}}==
<lang Action!>PROC Main()
DEFINE MAXNUM="10000"
CARD ARRAY pds(MAXNUM+1)
CARD i,j
FOR i=2 TO MAXNUM
DO
pds(i)=1
OD
FOR i=2 TO MAXNUM
DO
FOR j=i+i TO MAXNUM STEP i
DO
pds(j)==+i
OD
OD
FOR i=2 TO MAXNUM
DO
IF pds(i)=i THEN
PrintCE(i)
FI
OD
RETURN</lang>
{{out}}
[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Perfect_numbers.png Screenshot from Atari 8-bit computer]
<pre>
6
28
496
8128
</pre>
=={{header|Ada}}==
<lang ada>function Is_Perfect(N : Positive) return Boolean is
| |||