Pagini recente » Cod sursa (job #2332293) | Cod sursa (job #823710) | Cod sursa (job #2238957) | Cod sursa (job #242316) | Cod sursa (job #296486)
Cod sursa(job #296486)
var n,p,a:int64;
f,g:text;
function putere( x:int64; n:int64 ):int64;
begin
if n=0 then putere:=1
else if n mod 2 =1 then putere:=putere(x,n-1)*x mod 1999999973
else putere:=putere(x,n div 2)*putere(x,n div 2) mod 1999999973;
end;
begin
assign(f,'lgput.in');reset(f);
assign(g,'lgput.out');rewrite(g);
readln(f,n,p);
a := putere(n,p);
writeln(g,a);
close(g);
end.