function get(a,b:longint;c:longint);
var
t,y:longint;
begin
t:=1; y:=a;
while b<>0 do
begin
if (b and 1)=1 then
t:=t*y mod c;
y:=y*y mod c;
b:=b shr 1;
end;
exit(t);
end;
快速幂代码
最新推荐文章于 2023-11-22 11:37:11 发布