afl-material: cwtests/cw02/factors.while@851d8c00f033 (annotated)

833 7c3b8bb4a174 cwupdates Christian Urban <christian.urban@kcl.ac.uk> parents: diff changeset	1	// Find all factors of a given input number
7c3b8bb4a174 cwupdates Christian Urban <christian.urban@kcl.ac.uk> parents: diff changeset	2
7c3b8bb4a174 cwupdates Christian Urban <christian.urban@kcl.ac.uk> parents: diff changeset	3
7c3b8bb4a174 cwupdates Christian Urban <christian.urban@kcl.ac.uk> parents: diff changeset	4	write "Input n please";
7c3b8bb4a174 cwupdates Christian Urban <christian.urban@kcl.ac.uk> parents: diff changeset	5	read n;
853 851d8c00f033 updated Christian Urban <christian.urban@kcl.ac.uk> parents: 833 diff changeset	6	write "\nThe factors of n are";
833 7c3b8bb4a174 cwupdates Christian Urban <christian.urban@kcl.ac.uk> parents: diff changeset	7	f := 2;
7c3b8bb4a174 cwupdates Christian Urban <christian.urban@kcl.ac.uk> parents: diff changeset	8	while (f < n / 2 + 1) do {
7c3b8bb4a174 cwupdates Christian Urban <christian.urban@kcl.ac.uk> parents: diff changeset	9	if ((n / f) * f == n) then { write(f) } else { skip };
7c3b8bb4a174 cwupdates Christian Urban <christian.urban@kcl.ac.uk> parents: diff changeset	10	f := f + 1
7c3b8bb4a174 cwupdates Christian Urban <christian.urban@kcl.ac.uk> parents: diff changeset	11	}

author	Christian Urban <christian.urban@kcl.ac.uk>
	Fri, 03 Dec 2021 17:45:11 +0000
changeset 853	851d8c00f033
parent 833	7c3b8bb4a174
child 856	6a16964aed93
permissions	-rw-r--r--