Cod sursa(job #149425)

Utilizator ionicaion ionica Data 5 martie 2008 18:29:31
Problema Ridicare la putere in timp logaritmic Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.28 kb
program p21;  
 var i,m,n,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.