In[]:=
sol=Table[​​Take[Solve[​​-10p-26t5&&​​-5.3p+19t(var1-50),​​{p,t}]],{var1,10,20}];​​​​pSol=p/.sol//Flatten;​​​​Dynamic[Manipulate[​​Column@Flatten[​​var2=Solve[​​#==0.42-2.4s+1.52c&&​​d==15-1.4s+0.4258c]&/@pSol,1],​​{c,10,50,1,Appearance{"Labeled","Open"}}]]
Out[]=
​
c
10
10
Column[Flatten[pSol,1]]
In[]:=
Dynamic[var3=s/.var2//Flatten]
Out[]=
s/.pSol
In[]:=
Dynamic[tab1=Table[i++,{i,10,30,1}]//Flatten]
Out[]=
{10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30}
In[]:=
10
var3
,
11
var3
,.......
30
var3
(*divide
c
from10to30fortheirrespectivesvalueobtainedfromeachc*)
(*asweslidethesvalueschanges,togetherwiththecvalue.​​Itwouldbethat
c
dividebythesvalueobtainedascchanges*)