比赛代码 - COGS

比赛	NOIP2008集训模拟1	评测结果	AWWWWWWAWW
题目名称	地铁重组	最终得分	20
用户昵称	zpl123	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-11-10 11:09:22

显示代码纯文本

program subway;
var
l,ans,n,p,i:longint;
begin
 assign(input,'subway.in');
 assign(output,'subway.out');
 reset(input);
 rewrite(output);
 readln(n,p);
 ans:=1;
 if p>=n then
 for i:=1 to n do ans:=ans*i mod 4096
 else if p<>1 then
 begin
 for i:=1 to p do ans:=ans*i mod 4096;
 for i:=1 to n-p do ans:=ans*2 mod 4096;
 end;
 writeln(ans);
 close(input);
 close(output);
 end.