var
a,b,c,i,j,k,m,n,s0,s1:longint;
begin
assign(input,'abnum.in');
assign(output,'abnum.out');
reset(input);
rewrite(output);
readln(n);
for i:=1 to n do
begin
m:=i;
while m<>0 do
begin
c:=m mod 2;
if c=1 then s1:=s1+1 else s0:=s0+1;
m:=m div 2;
end;
if s1>s0 then a:=a+1 else b:=b+1;
s0:=0;
s1:=0;
end;
writeln(a,' ',b);
close(input);
close(output);
end.