fork download 
  1. program collatz;
  2. var a, b, i: integer;
  3. begin
  4. readln (a);
  5. b:=a;
  6. i:=0;  
  7. repeat
  8.     if (b mod 2)=0 then
  9.      b:=(b div 2)
  10.     else b:=3*b+1;
  11.     i:=i+1;
  12.   until b=1;
  13. writeln (i)
  14. end.
Success #stdin #stdout 0s 4112KB
comments (?)
stdin 
113
stdout 
12
https://ideone.com/fUcKu
language:
Pascal (gpc 20070904)
created:
15 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!