| changeset 856 | 6a16964aed93 |
| parent 853 | 851d8c00f033 |
| child 860 | abf63cd5e11b |
| 855:8354095747a5 | 856:6a16964aed93 |
|---|---|
4 write "Input n please"; |
4 write "Input n please"; |
5 read n; |
5 read n; |
6 write "\nThe factors of n are"; |
6 write "\nThe factors of n are"; |
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) then { write(f) } else { skip }; |
9 if ((n / f) * f == n) then { write(f); write("\n") } else { skip }; |
10 f := f + 1 |
10 f := f + 1 |
11 } |
11 } |