progs/factors.while
author Christian Urban <urbanc@in.tum.de>
Sun, 27 Oct 2019 11:57:57 +0000 (2019-10-27)
changeset 672 e0d76f7f0688
parent 659 15b69ca63b29
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";
f := 2;
while n != 1 do {
    while (n / f) * f == n do {
        write f;
        n := n / f
    };
    f := f + 1
}