[SOJ 1141] 猴子的争斗 - Ezoi_XY - 60326

记录编号	60326	评测结果	AAAAAAAAAA
题目名称	[SOJ 1141] 猴子的争斗	最终得分	100
用户昵称	Ezoi_XY	是否通过	通过
代码语言	Pascal	运行时间	0.001 s
提交时间	2013-05-22 20:17:21	内存使用	0.17 MiB

显示代码纯文本

Program cog782;
    Var
        S,I,N,T,A:Longint;
    Begin
        Assign(Input,'merge.in');
        Assign(Output,'merge.out');
        Reset(Input);
        Rewrite(Output);
        Readln(N);
        A:=N;
        S:=1;
        T:=N-2;
        While T>0 Do
            Begin
                If T And 1=1 Then S:=S*A Mod 10007;
                T:=T Shr 1;
                A:=A*A Mod 10007;
            End;
        For I:=1 To N-1 Do S:=S*I Mod 10007;
        Writeln(S);
        Close(Input);
        Close(Output);
    End.