记录编号 75624 评测结果 AAAAAAAAA
题目名称 取余运算 最终得分 100
用户昵称 Gravatargungnir 是否通过 通过
代码语言 Pascal 运行时间 0.001 s
提交时间 2013-10-28 15:46:26 内存使用 0.17 MiB
显示代码纯文本
var  b,p,k,ans:int64;


begin
assign(input,'dmod.in');reset(input);
assign(output,'dmod.out');rewrite(output);
readln(b,p,k);
ans:=1;
while p>0 do
if p mod 2=0 then
begin p:=p shr 1; b:=(b*b) mod k; end
else
begin ans:=(ans*b)mod k; p:=p shr 1;  b:=(b*b) mod k; end;

writeln(ans);
close(input);close(output);
end.