Cod sursa(job #1143715)
| Utilizator | Data | 15 martie 2014 21:31:06 | |
|---|---|---|---|
| Problema | Ridicare la putere in timp logaritmic | Scor | 100 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.36 kb |
program lgput;
const r=1999999973;
var n,p,m,rs:int64;
begin
assign(input,'lgput.in'); reset(input);
readln(n,p);
assign(output,'lgput.out'); rewrite(output);
rs:=1;
m:=n;
while (p>0) do
begin
if p mod 2=1 then rs:=(rs*m)mod r;
m:=(m*m)mod r;
p:=p div 2;
end;
writeln(rs);
close(output);
end.
