| changeset 905 | 15973df32613 |
| parent 894 | 02ef5c3abc51 |
| 904:d97283992d4f | 905:15973df32613 |
|---|---|
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 n != 1 do { |
8 while (f < n / 2 + 1) do { |
9 while (n / f) * f == n do { |
9 if ((n / f) * f == n) then { write(f); write "\n" } else { skip }; |
10 write f; write "\n"; |
10 f := f + 1 |
11 n := n / f |
|
12 }; |
|
13 f := f + 1 |
|
14 } |
11 } |