记录编号 171027 评测结果 AAAAAAAAAA
题目名称 [NOIP 2011]计算系数 最终得分 100
用户昵称 Gravatarforever 是否通过 通过
代码语言 Pascal 运行时间 0.001 s
提交时间 2015-07-17 15:00:12 内存使用 0.17 MiB
显示代码纯文本
program cojs630;
const
  p=10007;
var
  a,b,i,j,m,n,k,q,x,y,ans:longint;
begin
  assign(input,'factor.in');
  assign(output,'factor.out');
  reset(input);
  rewrite(output);
 
  ans:=1;
  readln(a,b,k,n,m);
  a:=a mod p;
  b:=b mod p;
  for i:=1 to n do
    ans:=ans*a mod p;
  for j:=1 to m do
    ans:=ans*b mod p;
  for i:=1 to k do
    ans:=ans*i mod p;
  x:=1;
  for i:=1 to n do
    x:=x*i mod p;
  for i:=1 to m do
    x:=x*i mod p;
  y:=p-2;
  q:=1;
  while y>0 do
    begin
      if y and 1=1 then q:=q*x mod p;
      x:=x*x mod p;
      y:=y shr 1;
    end;
  ans:=ans*q mod p;
  writeln(ans);
 
 
  close(input);
  close(output);
end.