program qi(input,output);
var
  a,b,c,d,i,j,k,ans:longint;
begin
  readln(a);
  for i:=1 to a do
    begin
      ans:=0;
      readln(b);
      for j:=1 to b do
        begin
          if sqrt(j)/trunc(sqrt(j))=1 then inc(ans);
        end;
      writeln(ans);
    end;
end.

PASCAL还是好使.....