Pagini recente » Cod sursa (job #1329661) | Cod sursa (job #584594) | Cod sursa (job #2324351) | Cod sursa (job #2191230) | Cod sursa (job #405654)
Cod sursa(job #405654)
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 hatvanyoz := (n mod maradek)
else
if hatvany = 2 then
begin
hatvanyoz:= (n*n) mod maradek;
exit;
end;
if hatvany mod 2 = 0 then
begin
x:=hatvanyoz(hatvany div 2);
hatvanyoz:=(x*x) mod maradek;
end
else
begin
x:=hatvanyoz( (hatvany-1) div 2);
hatvanyoz:= (x*x*n) mod maradek;
end;
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.