Mathematica:

1.
Sum[1/Sum[s, {s, 1, k}], {k, 1, 100}]
200/101

2.
Sum[1/(k(k + 1)(k + 2)), {k, 1, 98}]
4949/19800