Pascal :

var a,b,i,ii,ans0,ans1:longint;
begin
 a:=0;b:=0;
 for i:=1 to 1000 do 
  begin
   ii:=i;ans0:=0;ans1:=0;
   repeat
    if ii mod 2=0 then inc(ans0)
     else inc(ans1);
    ii:=ii div 2;
   until ii=0;
   if ans1>ans0 then inc(a)
    else inc(b);
  end;
  write(a,' ',b);
end.