您所在位置：主题：[讨论]十一界的一道读程题，问问到底谁做出来了？
trojankiss
[专家分：0] 发布于 2006-07-23 22:41:00
程序超级短。。。因为是递归函数。
var
n:longint;
function g(f:longint):longint;
begin
if k<=1 then g:=k
else g:=(2002* g(k-1) + 2003*g(k-2)) mod 2005;
end;
begin
read(n);
writeln(g(n));
end.
输入2005
问输出多少（答案31），光答案是不够的。。。我想知道里面有什么门道，总之我直接用计算机运行。。。。结果就是。。。。。死机。。。所以各位高手们，你们对读程题有什么技巧没有呢？大家一起分享吧！
var
n:longint;
function g(f:longint):longint;
begin
if k<=1 then g:=k
else g:=(2002* g(k-1) + 2003*g(k-2)) mod 2005;
end;
begin
read(n);
writeln(g(n));
end.
输入2005
问输出多少（答案31），光答案是不够的。。。我想知道里面有什么门道，总之我直接用计算机运行。。。。结果就是。。。。。死机。。。所以各位高手们，你们对读程题有什么技巧没有呢？大家一起分享吧！
