equal
deleted
inserted
replaced
1 // Find all factors of a given input number |
1 // Find all factors of a given input number |
|
2 // by J.R. Cordy August 2005 |
2 |
3 |
3 |
4 write "Input n please"; |
4 write "Input n please: "; |
|
5 read n; |
5 read n; |
6 write "The factors of n are: \n"; |
6 write "The factors of n are:\n"; |
7 f := 2; |
7 f := 2; |
8 while (f < n / 2 + 1) do { |
8 while (f < n / 2 + 1) do { |
9 if ((n / f) * f == n) |
9 if ((n / f) * f == n) |
10 then { write(f); write("\n") } |
10 then { write(f); write "\n" } |
11 else { skip }; |
11 else { skip }; |
12 f := f + 1 |
12 f := f + 1 |
13 } |
13 } |