Cod sursa(job #1837053)

Utilizator medicinedoctoralexandru medicinedoctor Data 28 decembrie 2016 22:56:36
Problema Ridicare la putere in timp logaritmic Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.31 kb
Raporteaza aceasta sursa 
var i,n,p,s:integer;

begin
  assign(input,'lgput.in');
  assign(output,'lgput.out');
  reset(input);
  rewrite(output);
  read(n,p);
  s:=1;
  i:=0;
  while (1 shl i)<=p do
  begin
    if ((1 shl i) and p)>0 then s:=(s*n) mod 1999999973;
    n:=(n*n) mod 1999999973;
    i:=i+1;
  end;
  write(s);
end.