输入b,p,k的值,求b^p mod k的值。其中b,p,k*k为长整型数。
var
b,p,k,t:int64;
begin
readln(b,p,k);
write(b,'^',p,' mod ',k,'=');
b:=b mod k;
t:=1;
while (p<>0) do
begin
if (p mod 2=1) then t:=t*b mod k;
p:=p div 2;
b:=(b*b) mod k;
end;
write(t);
end.
本文介绍了一种快速计算 b^p mod k 的算法,并通过示例代码详细展示了其实现过程。该算法适用于长整型数值计算场景,利用位运算和循环结构高效地解决了大数幂运算中的取模问题。
383

被折叠的 条评论
为什么被折叠?



