Question

PASCAL语言问题

求出结果并讲解分析（容易理解）
const
c=2009;
var
n,p,s,i,j,t:integer;
begin
read(n,p);
s:=0;
t:=1;
for i:=1 to n do
begin
t:=t*p mod c;
for j:=1 to i do
s:=(s+t) mod c;
end;
writeln(s);
end.
输入11 2 输出

Answer 1

首先，输入n，p，得知n=11，p=2，然后得知s=0；t=1；，接下来1-n也就是1-11循环，t=1*2 mod 2009，第一个t=2007，在做下面的循环s=（0+2007） mod 2009 s=2，然后多算几次就好了！