Pagini recente » Cod sursa (job #2924499) | Cod sursa (job #2358392) | Cod sursa (job #2117493) | Cod sursa (job #1413224)
program ridicare_log;
const modulo = 1999999973;
var f,g:text;
n,p,sol:int64;
bufin,bufout:array[1..1 shl 17] of char;
begin
assign(f,'lgput.in'); reset(f);
assign(g,'lgput.out'); rewrite(g);
settextbuf(f,bufin); settextbuf(f,bufout);
readln(f,n,p);
n := n mod modulo;
sol := 1;
while p > 0 do
begin
if p mod 2 = 1 then sol := (sol mod modulo) * (n mod modulo);
n := (n mod modulo) * (n mod modulo);
p := p div 2;
end;
writeln(g,sol mod modulo);
close(f); close(g);
end.