Perfect numbers: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 2,916: | Line 2,916: | ||
sum = 1; /* 1 is a proper divisor of every number */ |
sum = 1; /* 1 is a proper divisor of every number */ |
||
f1 = 2; |
f1 = 2; |
||
do while ((f1 * f1) < n); |
do while ((f1 * f1) <= n); |
||
if mod(n, f1) = 0 then |
if mod(n, f1) = 0 then |
||
do; |
do; |
||
Line 2,939: | Line 2,939: | ||
8128 |
8128 |
||
4 perfect numbers were found |
4 perfect numbers were found |
||
</pre> |
</pre> |
||
=={{header|PowerShell}}== |
=={{header|PowerShell}}== |