ac1112.pas

来自「这是在网络上搜集到的在东京大学的ACM上面解决的一些题目的源码」· PAS 代码 · 共 23 行

program tju1112;
var
  n,t:longint;
function rem(n:longint):longint;
  begin
    if n=1 then
      rem:=1
    else if odd(n) then
      rem:=rem(n shr 1)*2+1
    else
      rem:=rem(n shr 1)*2-1;
  end;
begin
  repeat
    read(n);
    if n=0 then halt;
    repeat
      t:=n;n:=rem(t);
    until n=t;
    writeln(n);
  until false;
end.