Cod sursa(job #493094)
| Utilizator |  George Marcus PlayLikeNeverB4 |
Data | 17 octombrie 2010 00:43:24 |
|---|---|---|---|
| Problema | Ridicare la putere in timp logaritmic | Scor | 100 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.31 kb |
program explog;
const m=1999999973;
var f,g:text; n,p,rez:int64;
begin
Assign(f,'lgput.in'); Reset(f);
Assign(g,'lgput.out');Rewrite(g);
Read(f,n,p);
rez:=1;
While p>0 do
begin
If p mod 2 = 1 then rez:=rez*n mod m;
n:=n*n mod m;
p:=p div 2 mod m;
end;
Write(g,rez mod m);
Close(f); Close(g);
end.
