i := 0; while (x>1) do begin if (x mod 2 = 1) then x := 3*x+1 else x := x div 2; inc(i); end; writeln(i);
0 jempol
fauzipadaw
300
3
·
7 tahun, 9 bulan yang lalu
·
0 jempol
Kayaknya Delphi deh