中科新闻网企业组织架构设置:帮帮忙 今年的noip
来源：百度文库 编辑：中科新闻网 时间：2024/05/09 07:27:05
var
n:longint;
function g(k: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.
当n=2005时输出多少
noip2005 提高 pascal第4题。
n:longint;
function g(k: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.
当n=2005时输出多少
noip2005 提高 pascal第4题。
31
31
用二分做就可以了