Pagini recente » Cod sursa (job #2899478) | Cod sursa (job #128178) | Cod sursa (job #2602289) | Cod sursa (job #2150288) | Cod sursa (job #582655)
Cod sursa(job #582655)
const i=1999999973;
var n,p,a,val:int64;
f,g:text;
function putere(n,p:longint):int64;
var p2:longint;
begin
if p>1 then
begin
if odd(p) then
begin
val:=(val*n) mod i;
p2:=(putere(n,p div 2)*putere(n,p div 2)) mod i;
val:=(val*p) mod i ;
end
else
begin
p2:=(putere(n,p div 2)*putere(n,p div 2)) mod i;
val:=val*p;
end;
putere:=val;
end
else
putere:=n;
end;
begin
assign(f,'lgput.in');reset(f);
assign(g,'lgput.out');rewrite(g);
read(f,n,p);
val:=1;
val:=putere(n,p);
writeln(g,val);
close(f);
close(g);
end.