Cod sursa(job #293157)
| Utilizator |  Birsan Dragos hominidu |
Data | 31 martie 2009 23:48:38 |
|---|---|---|---|
| Problema | Ridicare la putere in timp logaritmic | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.27 kb |
var f,g:text;
i:longint;
a,b,c,p:int64;
BEGIN
assign(f,'modulo.in');
reset(f);
read(f,a,b);
close(f);
c:=1999999973;
p:=a mod c;
for i:=2 to b do
p:=((p mod c )*(a mod c)) mod c;
assign(g,'modulo.out');
rewrite(g);
writeln(g,p);
close(g);
END.
