Cod sursa(job #742990)
Utilizator | Data | 2 mai 2012 18:21:07 | |
---|---|---|---|
Problema | Ridicare la putere in timp logaritmic | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.55 kb |
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.