Perfect numbers: Difference between revisions
Content added Content deleted
m (→{{header|ALGOL 60}}: minor variable rename) |
|||
| Line 521: | Line 521: | ||
begin |
begin |
||
comment - return |
comment - return n mod m; |
||
integer procedure mod( |
integer procedure mod(n, m); |
||
value |
value n, m; integer n, m; |
||
begin |
begin |
||
mod := |
mod := n - m * entier(n / m); |
||
end; |
end; |
||
| Line 559: | Line 559: | ||
outstring(1,"\n"); |
outstring(1,"\n"); |
||
outinteger(1,found); |
outinteger(1,found); |
||
outstring(1," |
outstring(1," were found"); |
||
end |
end |
||
| Line 567: | Line 567: | ||
Searching up to 10000 for perfect numbers |
Searching up to 10000 for perfect numbers |
||
6 28 496 8128 |
6 28 496 8128 |
||
4 |
4 were found |
||
</pre> |
</pre> |
||