Pagini recente » note2 | Cod sursa (job #2654281) | Diferente pentru problema/barbar intre reviziile 10 si 12 | Diferente pentru problema/lacuri intre reviziile 3 si 10 | Cod sursa (job #1052581)
program putere_timp_logaritmic;
const rest=1999999973;
var n,p,rez:int64;
f:text;
begin
assign(f,'lgput.in');
reset(f);
readln(f,n,p);
rez:=1;
while p>0 do begin
if p mod 2=1 then rez:=(rez*n) mod rest;
n:=sqr(n) mod rest;
p:=p div 2;
end;
assign(f,'lgput.out');
rewrite(f);
writeln(f,rez);
close(f);
end.