这道题嘛……
是一道无可否认的递推水题,只需使用递归公式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.