Cod sursa(job #872219)
Utilizator | Data | 5 februarie 2013 21:32:45 | |
---|---|---|---|
Problema | Ridicare la putere in timp logaritmic | Scor | 10 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.39 kb |
var n,p:longint;f,g:text;
function exp(x,p:longint):longint;
Begin
if p=1 then
exp:=x
else
If p mod 2 = 0 then
exp:=exp(x*x,trunc(p/2))
else
exp:=exp(x*x,trunc((p-1)/2));
end;
Begin
assign(f,'lgput.in');reset(f);
assign(g,'lgput.out');rewrite(g);
readln(f,n,p);
writeln(g,exp(n,p) mod 1999999973);
close(f);
close(g);
end.