Pagini recente » Cod sursa (job #2111027) | Cod sursa (job #351416) | Cod sursa (job #403522) | Cod sursa (job #1327156) | Cod sursa (job #380642)
Cod sursa(job #380642)
const
m = 1999999973;
var
fi, fo : text;
n, p : longint;
r, putere : int64;
begin
assign (fi, 'lgput.in'); reset (fi);
assign (fo, 'lgput.out'); rewrite (fo);
read (fi, n, p);
putere := n; r := 1;
while p > 0 do
begin
if odd (p) then
r := r*putere mod m;
putere := putere*putere mod m;
p := p shr 1;
end;
write (fo, r);
close (fi); close (fo);
end.