Description
一行N个方格，开始每个格子里都有一个整数。现在动态地提出一些问题和修改：提问的形式是求某一个特定的子区间[a,b]中所有元素的和；修改的规则是指定某一个格子x，加上或者减去一个特定的值A。现在要求你能对每个提问作出正确的回答。1≤N<100000，,提问和修改的总数m<10000条。
Input
输入文件第一行为一个整数N，接下来是n行n个整数，表示格子中原来的整数。接下一个正整数m，再接下来有m行，表示m个询问，第一个整数表示询问代号，询问代号1表示增加，后面的两个数x和A表示给位置X上的数值增加A，询问代号2表示区间求和，后面两个整数表示a和b，表示要求[a,b]之间的区间和。
Output
共m行，每个整数
Sample Input
6
4
5
6
2
1
3
4
1 3 5
2 1 4
1 1 9
2 2 6
Sample Output
22
22
Hint
1≤N≤100000， m≤10000 。
Solution
我写了树状数组,练手的= = ,当模板罢.
var
f:array [..] of longint;
n,m,i,p,x,l,r,a:longint; function lowbit(x:longint):longint;
begin
lowbit:=x and (-x);
end; procedure plus(x,a:longint);
begin
if x>n then exit;
f[x]:=f[x]+a;
plus(x+lowbit(x),a);
end; function query(x:longint):longint;
begin
query:=;
if x<= then exit;
query:=f[x];
query:=query+query(x-lowbit(x));
end; begin
read(n);
for i:= to n do
begin
read(a);
plus(i,a);
end;
read(m);
for i:= to m do
begin
read(x);
if x=
then begin read(p,x);plus(p,x); end
else begin read(l,r);writeln(query(r)-query(l-)); end;
end;
end.