NDSolve[{Derivative[1][p][t] ==
0.0000914221 (82560. (290 - T[t]) + 371480 Subscript[m, c][t]),
Derivative[1][T][t] == (
0.0000914221 T[
t] (82560. (290 - T[t]) + 371480 Subscript[m, c][t] -
720 T[t] Subscript[m, c][t]))/p[t], p[0] == 4000000,
p[14400] == 10000000, T[0] == 290, T[14400] == 300,
Subscript[m, c][14400] == 10.14}, {p[t], T[t],
Subscript[m, c][t]}, {t, 0, 14400}]

3个未知量，2个方程，怎么可能解得出来？