Here you will find a discussion of issues related to the production of repeated decimals.
The code is reproduced below for convenience.
repeatingDecimal[n_Integer | n_Real] := n
Format[repeatingDecimal[q_Rational]] :=
Row@Flatten[{IntegerPart@q, ".", RealDigits@FractionalPart@q} /. {{nr___Integer, r_List: {}},
pt_} :> {Table[0, {-pt}], nr, OverBar /@ r}]
repeatingDecimal[q_] + x_ ^:= q + x
repeatingDecimal[q_]*x_ ^:= q*x
repeatingDecimal[q_]^x_ ^:= q^x
Examples
n1 = 1; n2 = 15; ClearAll[i, k, r];
TableForm[Table[repeatingDecimal[i/j], {i, n1, n2}, {j, n1, n2}],
TableHeadings -> {None, Table[("r")/k, {k, n1, n2}]}]

Simple arithmetic operations such as addition can be carried out on the repeating decimals.
a = repeatingDecimal[7/31];
b = repeatingDecimal[24/31];
Print["a = ", a]
Print["b = ", b]
Print["a + b = ", a, " + ", b, " = ", a + b]

RealDigits
the replacement for what you want? $\endgroup$PeriodicForm
?) which does not work anymore, which is a bit puzzling. $\endgroup$NumberTheory
package that was in versions 6 and earlier. $\endgroup$