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

var 

  b,p,m,s,t:int64;
 begin
     read(b,p,m);
     write(b,'^',p,' mod ',m,'=');
     s:=1;t:=b;
     while p>0 do
     begin
          if odd(p) then s:=s*t mod m;
          p:= p div 2;
          t:=t*t mod m;
     end;
     write(s);
end.