ac1274.pas

这是在网络上搜集到的在东京大学的ACM上面解决的一些题目的源码

program tju1274;
var
  n,m,a,b:longint;
begin
  repeat
    read(n);m:=n;
    a:=1;while not odd(m) do begin a:=a*2;m:=m shr 1;end;
    m:=m shr 1;b:=1;while odd(m) do begin b:=b*2;m:=m shr 1;end;
    writeln(n+a+b-1);
  until seekeof;
end.