progs/collatz.while
author Christian Urban <christian dot urban at kcl dot ac dot uk>
Fri, 16 Oct 2015 14:27:20 +0100 (2015-10-16)
changeset 354 86b2aeae3e98
parent 147 4725bba8ef26
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";