Pagini recente » Cod sursa (job #1978484) | Cod sursa (job #715369) | Cod sursa (job #1254436) | Cod sursa (job #877424) | Cod sursa (job #308646)
Cod sursa(job #308646)
const c:int64 = 1999999973;
var n,p:int64;
f,g:text;
function rez(n,p:int64):int64;
var a:int64;
begin
if p=0 then rez:=1
else if p=1 then rez:=n
else begin
a:=rez(n,p div 2);
a:=a*a mod c;
if odd(p) then a:=a*n mod c;
rez:=a;
end;
end;
begin
assign(f,'lgput.in'); reset(f);
assign(g,'lgput.out'); rewrite(g);
read(f,n,p);
write(g,rez(n,p));
close(f); close(g);
end.