您所在位置：主题：2005 noip考题 1道
mdjqdh
[专家分：140] 发布于 2005-10-15 17:33:00
看程序写结果的
program m;
var n:longint;
function g(k:longint):longint;
begin
if k<=1 then g:=k
else g:=(2002*g(k-1)+2003*(k-2)) mod 2005
end;
begin
read(n);
writeln(g(n));
end.
输入 2005
输出:?
这个怎么算 ? 我感觉用笔好象根本算不出来
program m;
var n:longint;
function g(k:longint):longint;
begin
if k<=1 then g:=k
else g:=(2002*g(k-1)+2003*(k-2)) mod 2005
end;
begin
read(n);
writeln(g(n));
end.
输入 2005
输出:?
这个怎么算 ? 我感觉用笔好象根本算不出来
