Cod sursa(job #150203)

Utilizator radupointMircea Radu-Viorel radupoint Data 6 martie 2008 19:00:07
Problema Ridicare la putere in timp logaritmic Scor 10
Compilator fpc Status done
Runda Arhiva educationala Marime 0.29 kb
Raporteaza aceasta sursa 
program p1;
 var
    f:text;
    n,p,putere,i:longint;
begin
 assign(f,'lgput.in');
 reset(f);
  read(f,n,p);
 close(f);
  putere:=1;
   for i:=1 to p do
    putere:=(putere*n) mod 1999999973;
   assign(f,'lgput.out');
   rewrite(f);
    write(f,putere);
   close(f);
end.