Pagini recente » Cod sursa (job #2696870) | Cod sursa (job #2082487) | Cod sursa (job #2220472) | Cod sursa (job #1899078) | Cod sursa (job #209445)
Cod sursa(job #209445)
program pascal;
var f,g:text; r,n,p:int64;
begin
assign(f,'igput.in'); reset(f);
assign(g,'igput.out'); rewrite(g);
read(f,n,p);
r:=1;
while p<>0 do
begin
if (p mod 2=1) then
begin
r:=(r mod 1999999973)*(n mod 1999999973) ;
p:=p-1;
end
else
begin
n:=(n mod 1999999973)*(n mod 1999999973);
p:=p div 2;
end;
end;
write(g,r mod 1999999973);
close(f);
close(g);
end.