function ksm(a,b:longint):longint;
var
y,x:longint;
begin
ksm:=1;
y:=b;
x:=a;
while y>0 do
begin
if y and 1=1 then ksm:=(ksm*x)mod maxn;
y:=y shr 1;
x:=(x*x)mod maxn;
end;
end;
快速幂
最新推荐文章于 2025-04-13 23:00:00 发布