神马品牌网为什么女的会撩头发:PASCAL程序求输出
来源：百度文库 编辑：神马品牌网 时间：2024/04/28 04:15:54
var
n;longint;
function g(k;longint;);longint;
begin
if k,=l then g;=k
else g;=(2002*g(k-1)+2003*g(k-2))mod 2005:
END
begin
read(n);
writeln(g(n))
end
输入;2005
求输出:
n;longint;
function g(k;longint;);longint;
begin
if k,=l then g;=k
else g;=(2002*g(k-1)+2003*g(k-2))mod 2005:
END
begin
read(n);
writeln(g(n))
end
输入;2005
求输出:
同意xuanhuangyiqi,最后结果是堆栈溢出
你COPY进PASCAL,RUN一下不就知了
改成递推就可以咯,或者说DP
很快就出来咯
答案31,至于证明,要用费马小定理咯
k等于1的同时，也会有一个k等于0，所以这道题会不断的运行下去，除非再做一个遇到0的中指条件。
是的，你的程序代码，有许多错误，改正后，运行，是死循环。