cwtests/cw02/collatz.while
changeset 833 aad5957eb7e4
child 856 23273e3a120f
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/cwtests/cw02/collatz.while	Sat Sep 04 14:08:00 2021 +0100
@@ -0,0 +1,8 @@
+write "Input a number ";
+read n;
+while n > 1 do {
+  if n % 2 == 0 
+  then n := n/2 
+  else n := 3*n+1
+};
+write "Yes"