659
|
1 |
// Find all factors of a given input number
|
|
2 |
// by J.R. Cordy August 2005
|
|
3 |
|
658
|
4 |
write "Input n please";
|
|
5 |
read n;
|
|
6 |
write "The factors of n are";
|
|
7 |
f := 2;
|
659
|
8 |
while n != 1 do {
|
|
9 |
while (n / f) * f == n do {
|
658
|
10 |
write f;
|
659
|
11 |
n := n / f
|
|
12 |
};
|
|
13 |
f := f + 1
|
|
14 |
} |