var
  n,i,x,r,j,p,q,k,t:longint;
begin
  assign(input,'abnum.in');
  assign(output,'abnum.out');
  reset(input);
  rewrite(output);
  readln(n);
  for i:=1 to n do
    begin
      x:=i; p:=0; q:=0;
      while x<>0 do
        begin
          r:=x mod 2;
          if r=0 then p:=p+1
                 else q:=q+1;
          x:=x div 2;
        end;
      if p>=q then k:=k+1
              else t:=t+1;
    end;
  write(t,' ',k);
  close(input);
  close(output);
end.