progs/while-tests/collatz.while
author Christian Urban <christian.urban@kcl.ac.uk>
Fri, 04 Dec 2020 14:48:40 +0000 (2020-12-04)
changeset 817 89f9c68fc417
parent 804 387240957c3d
permissions -rw-r--r--
updated
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"