Pagini recente » Borderou de evaluare (job #909462) | Borderou de evaluare (job #2685270) | Cod sursa (job #324992) | Borderou de evaluare (job #1512981) | Cod sursa (job #742990)
Cod sursa(job #742990)
program putere;
const md=1999999973;
var x,n,p:qword;
begin
assign(input,'lgput.in'); reset(input);
assign(output,'lgput.out'); rewrite(output);
read(x,n);
close(input);
p:=1;
while n>0 do
if n mod 2=0 then begin
x:=x*x mod md;
n:=n div 2
end
else begin
p:=(p*x) mod md;
n:=n-1;
end;
write(p);
close(output);
end.