Cod sursa(job #147290)

Utilizator radupointMircea Radu-Viorel radupoint Data 2 martie 2008 19:21:19
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,r,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;
   r:=putere mod 1999999973;
   assign(f,'lgput.out');
   rewrite(f);
    write(f,r);
   close(f);
end.