solutions/cw2/factors.while
author Christian Urban <christian.urban@kcl.ac.uk>
Tue, 04 Apr 2023 22:31:09 +0100
changeset 906 2bf1516d730f
parent 894 02ef5c3abc51
child 920 7af2eea19646
permissions -rw-r--r--
updated

// 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
}