Perfect numbers: Difference between revisions
Content added Content deleted
imported>Arakov |
|||
Line 1,556: | Line 1,556: | ||
=={{header|EasyLang}}== |
=={{header|EasyLang}}== |
||
<syntaxhighlight |
<syntaxhighlight> |
||
fastfunc perf n . |
|||
i = 1 |
|||
while i < n |
|||
if n mod i = 0 |
if n mod i = 0 |
||
sum += i |
sum += i |
||
. |
. |
||
i += 1 |
|||
. |
. |
||
if sum = n |
|||
return 1 |
|||
. |
|||
return 0 |
|||
. |
. |
||
for i = 2 to 10000 |
for i = 2 to 10000 |
||
if perf i = 1 |
if perf i = 1 |
||
write i & " " |
|||
. |
. |
||
. |
. |
||
</syntaxhighlight> |
</syntaxhighlight> |
||
{{out}} |
|||
<pre> |
|||
6 28 496 8128 |
|||
</pre> |
|||
=={{header|Eiffel}}== |
=={{header|Eiffel}}== |