Cod sursa(job #714666)

Utilizator iu.ciocoiuIulian iu.ciocoiu Data 15 martie 2012 22:36:58
Problema Ridicare la putere in timp logaritmic Scor 10
Compilator fpc Status done
Runda Arhiva educationala Marime 0.39 kb
program putere_lg;
var n,p,c:longint;
    f,g:text;
begin
assign (f,'lgput.in'); reset (f);
assign (g,'lgput.out'); rewrite (g);
read (f,n,p);
c:=1;
while (p>0) do
   begin if (p mod 2=1) then begin c:=(c*n) mod 1999999973;
                                   p:=p-1;
                             end;
         n:=n*n;
         p:=p div 2;
   end;
write (g,c);
close (f);
close (g);
end.