Cod sursa(job #330655)

Utilizator ionutz32Ilie Ionut ionutz32 Data 10 iulie 2009 23:52:49
Problema Ridicare la putere in timp logaritmic Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.31 kb
Raporteaza aceasta sursa 
var n,p,pt,rez:int64;
f,g:text;
begin
assign(f,'lgput.in');
assign(g,'lgput.out');
reset(f);rewrite(g);
read(f,n,p);
pt:=n;
rez:=1;
repeat
      if p mod 2=1 then
         rez:=rez*pt mod 1999999973;
      pt:=pt*pt mod 1999999973;
      p:=p div 2;
until p=0;
write(g,rez);
close(f);close(g);
end.