Dear Sir, I would thank you very much again, it's working. I took the previous example to clarify. You'll notice that As we slide the s values changes, together with the c value. It would be that Sqrt[c] divide by the s value obtained as c changes. I attached the notebook also. Thank you for your kind consideration

    sol = Table[
       Take[Solve[
         -10 p - 26 t == 5 &&
          -5.3 p + 19 t == (var1 - 50),
         {p, t}]], {var1, 10, 20}];

    pSol = p /. sol // Flatten;

    Dynamic[Manipulate[
      Column@Flatten[
        var2 = Solve[
            # == 0.42 - 2.4 s + 1.52 c &&
             d == 15 - 1.4 s + 0.4258 c] & /@ pSol, 1],
      {c, 10, 50, 1, Appearance -> {"Labeled", "Open"}}]]

Dynamic[var3 = s /. var2 // Flatten]&[Wolfram Notebook][1]
Dynamic[tab1 = Table[i++, {i, 10, 30, 1}] // Flatten]
Sqrt[10]/var3, Sqrt[11]/var3, ... ....  (Sqrt[30]/var3) (*divide \
Sqrt[c] from 10 to 30 for their respective s value obtained from each \
c*)

I am not sure I understand exactly what you are asking. I don't think Dynamic is needed.

Write a function to generate the solutions for given c so you can use it for many different purposes.

solutions[c_] := 
 Solve[# == 0.42 - 2.4 s + 1.52 c && d == 15 - 1.4 s + 0.4258 c] & /@ pSol // Flatten[#, 1] &

Display as a table

tableDisplay[c_] := solutions[c] // TableForm
Manipulate[tableDisplay[c], {c, 10, 50, 5}]

Display as a grid

gridDisplay[c_] := 
 solutions[c] // Values // Prepend[{"d", "s"}] //
  Grid[#,
    Frame -> All,
    Background -> {Automatic, 1 -> LightYellow},
    ItemStyle -> {Automatic, 1 -> Bold},
    Alignment -> {Center, Automatic, {{{2, -1}, {1, -1}} -> "."}}] &

Manipulate[gridDisplay[c], {c, 10, 50, 5}]

Generate a set of solutions for c between 10 and 30 as an Association

solutionSet = AssociationMap[Association /@ solutions[#] &, Range[10, 30]]

All the s values for c = 10

sc10 = solutionSet[10] // Map[KeyTake[#, s] &] // Merge[Identity]
(* <|s -> {5.30714, 5.47239, 5.63763, 5.80287, 5.96812, 6.13336, 6.2986, 
   6.46384, 6.62909}|> *)

Divide Sqrt[10] by each s value

Sqrt[10] / Flatten@Values@sc10
(* {0.595853, 0.577861, 0.560923, 0.54495, 0.529862, 0.515587, 0.50206, \
0.489225, 0.477031} *)

If you need to do this for many different values of c then combine the steps above into a single function.

Do you mean something like this?

Manipulate[
 Column@Flatten[Solve[
    # == 0.42 - 2.4 s + 1.52 c && d == 15 - 1.4 s + 0.4258 c] & /@ pSol, 1], {c, 10, 50, 5}]

Something like this?

sol = Table[
  Take[Solve[-10 p - 26 t == 5 && -5.3 p + 19 t == (var1 - 50),
    {p, t}]], {var1, 10, 30, 4}]

pSol = p /. sol // Flatten

Solve[# == 0.42 - 2.4 s + 1.52 c && da == 15 - 1.4 s + 0.425723972217329 c] & /@ pSol