Cod sursa(job #1689622)

Utilizator laura.calimanLaura Caliman laura.caliman Data 14 aprilie 2016 13:44:28
Problema Ridicare la putere in timp logaritmic Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.35 kb
Raporteaza aceasta sursa 
var n,p,i,k,a,b,c:int64;

begin
  assign(input,'lgput.in');
  assign(output,'lgput.out');
  reset(input);
  rewrite(output);
  read(n,p);
  k:=0;
  b:=1;
  c:=1999999973;
  while k<p do begin
    i:=1;
    a:=n;
    while i*2<p-k do begin
      a:=a*a mod c;
      i:=i*2;
    end;
    b:=b*a mod c;
    k:=k+i;
  end;
  write(b);
end.