Cod sursa(job #565736)

Utilizator promix2012petruta andrei promix2012 Data 28 martie 2011 11:19:29
Problema Ridicare la putere in timp logaritmic Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.35 kb
Raporteaza aceasta sursa 
program lgpu23t;
const fi='lgput.in';
       fo='lgput.out';
       mu=1999999973;
var f,g:text;
n,m,n1:longint;
p,t:qword;
begin
assign(f,fi);
reset(f);
assign(g,fo);
rewrite(g);
read(f,n,m);
t:=1;
while m<>0 do
begin
if m mod 2=1 then
  t:=(t*n1) mod mu;
  n1:=(n1*n) mod mu;
  m:=m div 2;
end;
write(g,t );
close(f);
close(g);
end.