Cod sursa(job #1115690)

Utilizator DjokValeriu Motroi Djok Data 21 februarie 2014 22:42:25
Problema Ridicare la putere in timp logaritmic Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.47 kb
 const modulo=1999999973;
var n,p,rs:qword;

begin
assign(input,'lgput.in');
assign(output,'lgput.out');
reset(input);
rewrite(output);
 read(n); readln(p);
        rs:=1;
   while p>0 do
    begin
     if p mod 2=0 then begin n:=((n mod modulo)*(n mod modulo)) mod modulo; p:=p div 2; end
                  else begin rs:=((rs mod modulo)*n) mod modulo; dec(p); end;
    end;
     writeln(rs);
close(input);
close(output);
{Totusi este trist in lume}
end.