题目描述
输入b,p,k的值,求b^p mod k的值。其中b,p,k*k为长整型数。
输入输出格式
输入格式:
三个整数b,p,k.
输出格式:
输出“b^p mod k=s”
s为运算结果
输入输出样例
输入样例#1:
2 10 9
输出样例#1:
2^10 mod 9=7
var
b,p,m,s,t:int64;begin
read(b,p,m);
write(b,'^',p,' mod ',m,'=');
s:=1;t:=b;
while p>0 do
begin
if odd(p) then s:=s*t mod m;
p:= p div 2;
t:=t*t mod m;
end;
write(s);
end.