源程序：
var
a:integer;
begin
read(a);
while a 0 do
if a mod 2 = 0 then a:=a div 2 else a:=a*3+1;
write(a);
end.
very easy!
照這樣算下去,最終會進入壹個死循環4→2→1→4→2→1.這是‘角谷猜想’.壹個日本人提出的猜想.
跟5樓說得壹樣,無論是說壹個什麽數都是壹樣的效果：進入死循環!