Cod sursa(job #159324)

Utilizator Tase_CCapalna Tanase Tase_C Data 14 martie 2008 07:42:22
Problema Ridicare la putere in timp logaritmic Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.29 kb
var r,a,t,n:int64;
begin
assign(input,'lgput.in');reset(input);
assign(output,'lgput.out');rewrite(output);
read(a,n);r:=1;
t:=1999999973;
 while n<>0 do begin
  if n mod 2=1 then r:=r*a mod t;
  a:=a*a mod t;
  n:=n div 2;
 end;
writeln(r mod t);
close(input);close(output);
end.