Cod sursa(job #240468)

Utilizator gabyromaRomanescu Gabriela gabyroma Data 7 ianuarie 2009 18:27:23
Problema Ridicare la putere in timp logaritmic Scor 10
Compilator fpc Status done
Runda Arhiva educationala Marime 0.33 kb
Raporteaza aceasta sursa 
program lgput;
var f,g:text;
    n,p,x,y,i:longint;

begin
assign(f,'lgput.in');
assign(g,'lgput.out');
reset(f);
rewrite(g);
readln(f,n,p);
y:=n mod 1999999973;
i:=p;
x:=1;
while i>0 do begin
  if i mod 2=1 then x:=x*y mod 1999999973;
  y:=y*y mod 1999999973;
  i:=i div 2;
  end;
writeln(g,x);
close(f);
close(g);
end.