Cod sursa(job #342938)

Utilizator aghamatMorariu Razvan aghamat Data 24 august 2009 14:19:57
Problema Ridicare la putere in timp logaritmic Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.31 kb
Raporteaza aceasta sursa 
program lgput;
var m,n,p,c:int64;
		f,g:text;
begin
assign(f,'lgput.in'); reset(f);
assign(g,'lgput.out'); rewrite(g);
read(f,p,n);
m:=p mod 1999999973;
c:=1;
while n<>0 do
 begin
	if n mod 2=1 then c:=(c*m) mod 1999999973;
	m:=(m*m) mod 1999999973;
	n:=n div 2
 end;
write(g,c);
close(f); close(g);
end.