Pagini recente » Cod sursa (job #96408) | Borderou de evaluare (job #1071991) | Cod sursa (job #1648864) | Cod sursa (job #2217899) | Cod sursa (job #1624271)
program ridicare_la_putere;
var n,p:int64;
f,g:text;
const m=1999999973;
function ridic(n,p:int64):int64;
var s:int64;
begin
s:=1;
while p<>0 do
begin
if p mod 2=1 then
s:=s*n mod m;
n:=n*n mod m;
p:=p div 2;
end;
ridic:=s;
end;
begin
assign(f,'lgput.in');
assign(g,'lgput.out');
reset(f);
rewrite(g);
readln(f,n,p);
writeln(g,ridic(n,p));
close(f);
close(g);
end.