poj3734--pascal题解

原题目：http://poj.org/problem?id=3734

请自行百度快速幂

这题只有两个样例，乍一看也看不出什么来……
但如果手动多试几组数据呢？
多试一下会得到如下结果：
读入 n : —1—2—3—4—5……
输出 ans :-2—6–20–72–272……
而 2=1*2，6=2*3，20=4*5，72=8*9，272=16*17……
每个式子提取较小的因数，则会得到：1，2，4，8，16……
分别是2的0、1、2、3、4……次方，
所以结果也就出来了：

好的结束……才没有。
本题n的范围是1<=n<=10^9，如果直接求幂会炸……
你需要快速幂~

var t,i,l,n,j:longint;
    a,b:array[0..31]of longint;
begin
    a[0]:=1;b[0]:=2;
    for i:=1 to 30 do begin
        a[i]:=a[i-1]*2;
        b[i]:=b[i-1]*b[i-1]mod 10007;
    end;
    readln(t);
    for i:=1 to t do begin
        readln(n);l:=1;n:=n-1;
        for j:=30 downto 0 do
        if a[j]<=n then begin
            l:=l*b[j]mod 10007;
            n:=n-a[j];
            if n=0 then break;
        end;
        l:=(l*(l+1))mod 10007;
        writeln(l);
    end;
end.

再次声明：

请自行百度快速幂