solution/cw2/factors.while
changeset 894 02ef5c3abc51
parent 893 54a483a33763
child 895 2f5a87ecdc81
--- a/solution/cw2/factors.while	Fri Oct 28 09:08:13 2022 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,14 +0,0 @@
-// Find all factors of a given input number
-// by J.R. Cordy August 2005
-
-write "Input n please";
-read n;
-write "The factors of n are\n";
-f := 2;
-while n != 1 do {
-    while (n / f) * f == n do {
-        write f; write "\n";
-        n := n / f
-    };
-    f := f + 1
-}
\ No newline at end of file