Pagini recente » Cod sursa (job #2494820) | Cod sursa (job #216290) | Cod sursa (job #71710) | Cod sursa (job #77996) | Cod sursa (job #406515)
Cod sursa(job #406515)
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 mod maradek;
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.