比赛代码 - COGS

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

显示代码纯文本

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.