题目描述
输入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.
转载请注明原文地址: https://ju.6miu.com/read-662467.html
