Pagini recente » Cod sursa (job #137630) | Cod sursa (job #746336) | Cod sursa (job #657754) | Borderou de evaluare (job #505513) | Cod sursa (job #872219)
Cod sursa(job #872219)
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.