Cod sursa(job #149429)

Utilizator ionicaion ionica Data 5 martie 2008 18:31:53
Problema Ridicare la putere in timp logaritmic Scor 10
Compilator fpc Status done
Runda Arhiva educationala Marime 0.29 kb
program p21;  
 var i,m,n:longint;
     p:int64;  
     f,g:text;  
 begin  
 assign(f,'lgput.in');reset(f);  
 assign(g,'lgput.out');rewrite(g);  
 readln(f,n,p);  
 m:=1;  
 for i:=1 to p do  
	begin     
	m:=m*n;  
	m:=m mod 1999999973;
	end;
 writeln(g,m);  
 close(g);  
 end.