Cod sursa(job #159322)

Utilizator RichiUngur Richard-Alex Richi Data 14 martie 2008 07:41:33
Problema Ridicare la putere in timp logaritmic Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.3 kb
Raporteaza aceasta sursa 
var a,n:int64;
    r,t:int64;
begin
assign(input,'lgput.in'); reset(input);
assign(output,'lgput.out');rewrite(output);
readln(a,n);
t:=1999999973;  r:=1;
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);
close(input); close(output);
end.