Pagini recente » Cod sursa (job #2041720) | Cod sursa (job #148753) | Cod sursa (job #1303992) | Cod sursa (job #22481) | Cod sursa (job #406519)
Cod sursa(job #406519)
program hatvanyoz;
const maradek = 1999999973;
var n,p:qword;
ki,be:text;
function hatvanyoz(hatvany:qword):qword;
var x:qword;
begin
if hatvany=1 then
begin
hatvanyoz:=n;
exit;
end;
x:=hatvanyoz(hatvany div 2);
if odd(hatvany) then
hatvanyoz:=(x*x*n) mod maradek
else
hatvanyoz:=(x*x) mod maradek;
end;
begin
assign(be,'lgput.in');
assign(ki,'lgput.out');
reset(be);
rewrite(ki);
readln(be,n,p);
writeln(ki,hatvanyoz(p));
close(ki);
end.