luogup1226取余运算||快速幂（数论）

输入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.