畚箕形:求助:是PASCAL的,用高精度算法来验证谷角猜想~~

来源:百度文库 编辑:中科新闻网 时间:2024/05/10 09:23:36
求助:是PASCAL的,用高精度算法来验证谷角猜想~~

var n : integer;

begin
readln(n);
repeat
if n mod 2 = 0 then
begin
writeln(n,'/2 = ',n div 2);
n := n div 2;
end
else
begin
writeln(n,'*3+1 = ',3*n+1);
n := 3*n+1;
end;
until n = 1;
readln;
end.