Cod sursa(job #752529)

Utilizator Kitkitkit11Artene Cristina Kitkitkit11 Data 28 mai 2012 20:17:04
Problema Ridicare la putere in timp logaritmic Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.33 kb
Raporteaza aceasta sursa 
program lgput;
var     f:text;
        n,p,rs:int64;
begin
assign(f,'lgput.in');reset(f);
readln(f,n,p);close(f);
assign(f,'lgput.out');rewrite(f);
rs:=1;
while p>0 do begin
if odd(p) then begin
   rs:=(rs*n)mod 1999999973;
   p:=p-1;end else begin
   n:=(n*n)mod 1999999973;p:=p div 2;
   end;end;
writeln(f,rs);close(f);end.