- 分享
- 2009-08-09 09:59:29 @
var n,k,i,j:longint;
f:array[1..200,0..200] of longint;
begin
readln(n,k);
for i:= 1 to n do
begin
f:=1; f:=1;
end;
for i:= 2 to n do
for j:= 1 to i-2 do
f:=((i-j)*f+(j+1)*f) mod 2009;
writeln(f[n,k]);
end.
给个理由啊
8 条评论
-
100%Accept LV 8 @ 2009-08-09 09:59:29
汗...我大号也是读入错光...晕倒
汗...我大号也是读入错光...晕倒
-
2009-08-09 09:50:15@
ORZ
ORZ^
-
2009-08-09 09:39:53@
55555
春哥我背叛了你 我再也不信曾哥了 -
2009-08-09 08:39:21@
RT
我看到了多行,最后忘了MOD 2009
-
2009-08-09 08:30:03@
题目描述是不是后来改过?
为什么我们学校6个人都没有看到输入有多行...
结果全是 运行超时 格式错误
难不成我们的RP差的这么离谱?! -
2009-08-08 22:00:12@
多组
while not eof
begin
...
...
...
end; -
2009-08-08 21:27:36@
没为什么~
因为你
!~~~
不信春歌~ -
2009-08-08 21:26:34@
有多个输入
- 1