var
  n,k,m,q,i:longint;
procedure main;
begin
  i:=0;
  while k<n do
    begin
      inc(i);
      k:=k+i;
    end;
end;
begin
  readln(m);
  q:=0;
  while q<m do
    begin
      inc(q);k:=0;
      readln(n);
      main;
     writeln(n-((i*(i-1)) div 2));
    end;
end.
PS：pku1019的题目，PASCAL语言，我不知道还能怎么优化了，哪位大侠帮帮忙！