Cod sursa(job #1719519)

Utilizator medicinedoctoralexandru medicinedoctor Data 19 iunie 2016 14:57:12
Problema Ridicare la putere in timp logaritmic Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.23 kb
Raporteaza aceasta sursa 
var i,n,p,a,s:int64;

begin
  s:=1;
  readln(n,p);
  a:=n;
  while ((1 shl i)<=p) do
  begin
    if ( ((1 shl i) and p) > 0) then s:=(s*a) mod 1999999973;
    a:=(a*a) mod 1999999973;
    i:=i+1;
  end;
  write(s);
end.