Cod sursa(job #214827)
| Utilizator |  Vladulescu Adrian Adrian001 |
Data | 16 octombrie 2008 11:32:27 |
|---|---|---|---|
| Problema | Ridicare la putere in timp logaritmic | Scor | 100 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.3 kb |
Program cel;
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 1999999973;
n:=n*n mod 1999999973;
p:=p div 2;
end;
Write(G,rez);
close(f);
Close(g);
end.
