如果发现广告等破坏行为，请尽量将条目恢复到较早的版本而不是把相应内容直接删除，谢谢合作。

URAL/1083

来自"NOCOW"

跳转到: 导航, 搜索
VAR
  k,n,ans:longint;
  ch:char;
BEGIN
  read(n);
    repeat
      read(ch);
        if ch='!' then inc(k);
    until eoln;
  ans:=n;
    if n-k>0 then
    repeat
      dec(n,k);
      ans:=ans*n;
    until n<=k;
  writeln(ans);
END.
//from lzoi_ys
来自"http://www.nocow.cn/index.php/URAL/1083"
个人工具