青浦观庭别墅:求助:是PASCAL的,用高精度算法来验证谷角猜想~~

来源:百度文库 编辑:高考问答 时间:2024/05/11 01:56: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.