Var
   n:longint;
   a:array[1..30]of integer;
   k,i,j,s:integer;
Procedure print;
var
   n1:longint;
   i:integer;
begin
   n1:=0;
   for i:=k to 30 do
     n1:=n1*2+a[i];
   writeln(n1);
   halt;
end;
Begin
   readln(n);
   k:=31;
   while n>0 do
     begin
       dec(k);
       a[k]:=n mod 2;
       n:=n div 2;
     end;
   for i:=30 downto k+1 do
     if (a[i]=1)and(a[i-1]=0) then
       begin
         a[i]:=0;
         a[i-1]:=1;
         s:=0;
         for j:=i+1 to 28 do
           if a[j]=1 then inc(s);
         for j:=28 downto i+1 do
           if odd(j) then a[j]:=0
             else
               if (28-j)div 2<s then
                 a[j]:=1
               else
                 break;
         for s:=i+1 to j do a[s]:=0;
         print;
       end;
   s:=0;
   for i:=28 downto k do
     if odd(i) then a[i]:=0 else a[i]:=1;
   print;
End.

评论