afl-material: progs/while-tests/factors.while@7af2eea19646 (annotated)

659 15b69ca63b29 optional Christian Urban <urbanc@in.tum.de> parents: 658 diff changeset	1	// Find all factors of a given input number
824 284ac979f289 updated while tests Christian Urban <christian.urban@kcl.ac.uk> parents: 742 diff changeset	2
659 15b69ca63b29 optional Christian Urban <urbanc@in.tum.de> parents: 658 diff changeset	3
658 a18e3c027c1f updated Christian Urban <urbanc@in.tum.de> parents: diff changeset	4	write "Input n please";
a18e3c027c1f updated Christian Urban <urbanc@in.tum.de> parents: diff changeset	5	read n;
a18e3c027c1f updated Christian Urban <urbanc@in.tum.de> parents: diff changeset	6	write "The factors of n are";
a18e3c027c1f updated Christian Urban <urbanc@in.tum.de> parents: diff changeset	7	f := 2;
824 284ac979f289 updated while tests Christian Urban <christian.urban@kcl.ac.uk> parents: 742 diff changeset	8	while (f < n / 2 + 1) do {
284ac979f289 updated while tests Christian Urban <christian.urban@kcl.ac.uk> parents: 742 diff changeset	9	if ((n / f) * f == n) then { write(f) } else { skip };
284ac979f289 updated while tests Christian Urban <christian.urban@kcl.ac.uk> parents: 742 diff changeset	10	f := f + 1
659 15b69ca63b29 optional Christian Urban <urbanc@in.tum.de> parents: 658 diff changeset	11	}

author	Christian Urban <christian.urban@kcl.ac.uk>
	Tue, 19 Sep 2023 09:54:41 +0100
changeset 920	7af2eea19646
parent 824	284ac979f289
permissions	-rw-r--r--