Perfect numbers: Difference between revisions
m
→{{header|ALGOL 60}}
m (→{{header|Picat}}: Typo) |
|||
Line 535:
sum := 1;
f1 := 1;
for f1 := f1 + 1 while (f1 * f1) <= n do
begin
if mod(n, f1) = 0 then
|