Ejemplo que ilustra como tabular los elementos generados en una lista, utilizando cabeceras.

lista = {};
For[i = 1,i ≤ 20,i++,
      pordiferencia=((Sqrt[1+2.5  (10^i)])-(Sqrt[2.5  (10^i)]))2.5  (10^i);
      porcociente=((2.5  (10^i))/((Sqrt[1+2.5  (10^i)])+(Sqrt[2.5  (10^i)])));
      AppendTo[lista, {pordiferencia,  porcociente}]]
         TableForm[lista, 
        TableHeadings -> {None, {"Por diferencia", "Por \
cociente"}}]