快速幂pascal模板
以洛谷P1226为例：
P1226 取余运算||快速幂
题目描述
输入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
代码：
program rrr(input,output);
var
b,p,k:longint;
function pow(a,b,p:longint):longint;
var
i,j,ans:longint;
begin
i:=b;j:=a;ans:=1;
while i>0 do
begin j:=j*j mod p; i:=i div 2;if i mod 2=1 then ans:=ans*j mod p;end;
exit(ans);
end;
begin
assign(input,'r.in');assign(output,'r.out');reset(input);rewrite(output);readln(b,p,k);
write(b,'^',p,' mod ',k,'=',pow(b,p,k));
close(input);close(output);
end.
www.99jianzhu.com/包含内容：建筑图纸、PDF/word/ppt 流程，表格，案例，最新,免费下载,施工方案、工程书籍、建筑论文、合同表格、标准规范、CAD图纸等内容。