ha han 你在合肥电教馆学PASCAL吧[em1]

用杀毒软件啊！

同意[em4]

杀毒 顶

纯粹数学问题

program cashu;
const
inf='cashuin.txt';
ouf='cashuout.txt';

var
i,n,a,b,c,t3,t2:integer;
t1:real;
begin
assign(input,inf);
reset(input);
assign(output,ouf);
rewrite(output);
readln(n);
for i:=1 to n do
  begin
   readln(a,b,c);
   t1:=a+c/b;
   if sqr(3-2*t1)-8>0 then
   t2:=trunc((2*t1-3+sqrt(sqr(3-2*t1)-8))/(2*b))
   else t2:=0;
   t2:=(t2+1)*b+1;
   writeln(round(t2*(t2+1)/2-(t2-1)*t1));
  end;
close(input);
close(output);
end.