题解 P1634 禽兽的传染病

这道题嘛……

是一道无可否认的递推水题，只需使用递归公式t:=t+t*x; 另外要注意的是如果使用for循环，那么除循环变量外其他变量都最好设成qword（虽然题目好像并没有让所有变量都那么大）

分析完题目后，放一下核心代码：

        t:=1;//注意，这步必不可少
        for i:=1 to n do
        Begin
                t:=t+t*x;//套入递归公式
        end;

最后，放下源代码：

Var i:longint;
    n,x,t:qword;
Begin
        read(x,n);
        t:=1;
        for i:=1 to n do
        Begin
                t:=t+t*x;
        end;

        write(t);
end.