progs/collatz.while
author Christian Urban <christian dot urban at kcl dot ac dot uk>
Sat, 03 Oct 2015 00:44:58 +0100 (2015-10-02)
changeset 344 408fd5994288
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";