Cod sursa(job #1115690)
Utilizator | Valeriu Motroi Djok | Data | 21 februarie 2014 22:42:25 |
---|---|---|---|
Problema | Ridicare la putere in timp logaritmic | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.47 kb |
const modulo=1999999973;
var n,p,rs:qword;
begin
assign(input,'lgput.in');
assign(output,'lgput.out');
reset(input);
rewrite(output);
read(n); readln(p);
rs:=1;
while p>0 do
begin
if p mod 2=0 then begin n:=((n mod modulo)*(n mod modulo)) mod modulo; p:=p div 2; end
else begin rs:=((rs mod modulo)*n) mod modulo; dec(p); end;
end;
writeln(rs);
close(input);
close(output);
{Totusi este trist in lume}
end.