var
  i,ii:longint;
  tt,n,x,cnt:INT64;
  flag:boolean;
begin
  readln(tt);
  for ii:=1 to tt do begin
    readln(n);
    x:=n; cnt:=0;
    flag:=false;
    while x>0 do begin
      if x and 1=1 then begin
        if flag=false then begin
          inc(cnt); flag:=true;
        end;
      end
      else flag:=false;
      x:=x div 2;
    end;
    writeln(cnt);
  end;
end.