(r (k - \[Mu] + Subscript[p, 1] - Subscript[p, 2]) (Subscript[p, 2] -
Subscript[c, 2] - Subscript[\[Lambda]\[Beta], 2]) + (-\[Omega] +
Subscript[p, 1]) (k + \[Mu] - Subscript[p, 1] + Subscript[p,
2]))/(2 k)
Solve[D[Subscript[\[Pi], p], Subscript[p, 1]] == 0, Subscript[p,
1]] // FullSimplify
D[Subscript[\[Pi], p], {Subscript[p, 1], 2}] // FullSimplify;

你代码不全，非要猜的话那就是下标被污染了，试试
Clear[Subscript]
更多内容参看精品区《为什么我的代码加了下标（Subscript）就出问题了？》