比赛代码 - COGS

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

显示代码纯文本

program subway;
var
f1,f2:text;
l,ans,n,p,i:longint;
begin
assign(f1,'subway.in');
assign(f2,'subway.out');
reset(f1);rewrite(f2);
readln(f1,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(f2,ans);
close(f1);close(f2);
end.