Pagini recente » Cod sursa (job #2563844) | Cod sursa (job #1744846) | Cod sursa (job #184807) | Cod sursa (job #343487) | Cod sursa (job #1581641)
program ooo;
var n,p:int64;
f:text;
function putere(nr,pow:int64):int64;
var ra:int64;
begin
if pow=0 then putere:=1
else if pow=1 then putere:=nr
else if nr=0 then putere:=0
else
begin
if odd(pow) then putere:=((putere(nr,pow-1))*nr) mod 1999999973
else
begin
ra:=putere(nr,pow div 2);
putere:=sqr(ra) mod 1999999973;
end;
end;
end;
begin
assign(f,'lgput.in');
reset(f);
read(f,n,p);
close(f);
assign(f,'lgput.out');
rewrite(f);
write(f,putere(n,p));
close(f);
end.