In[]:=
Table[Take[Solve[-10p-26t5&&-5.3p+19t(var1-50),{p,t}]],{var1,10,30,4}]//Flatten(*solution1*)
Out[]=
{p2.88286,t-1.3011,p2.56559,t-1.17907,p2.24832,t-1.05705,p1.93106,t-0.935021,p1.61379,t-0.812996,p1.29652,t-0.69097}
In[]:=
f[p_,t_]:=Take[#&p]
Manipulate[Solve[2.88286(*toincludeallvaluesofpfromsolution1*)0.42-2.4s+1.52c&&da15-1.4s+0.425723972217329c],{c,10,50}](*solution2*)
Out[]=
