Cod sursa(job #159325)

Utilizator smecheru_tudyMuresan Tudor smecheru_tudy Data 14 martie 2008 07:43:04
Problema Ridicare la putere in timp logaritmic Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.29 kb
var n,p,a,r,t:int64;
begin
assign(input,'lgput.in');reset(input);
assign(output,'lgput.out');rewrite(output);
readln(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;
write(r);
close(input);close(output);
end.