比赛代码 - COGS

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

显示代码纯文本

program subway;
var
  a,n,p,i:longint;  fi,fo:text;
begin
  assign(fi,'subway.in');
  assign(fo,'subway.out');
  reset(fi);
  rewrite(fo);
  readln(fi,n,p);

  a:=1;
  if p>=n then
    for i:=1 to n do a:=a*i mod 4096
  else if p<>1 then
  begin
    for i:=1 to p do a:=a*i mod 4096;
    for i:=1 to n-p do a:=a*2 mod 4096;
  end;
  writeln(fo,a);

  close(fi);
  close(fo);
end.