EquationSymbolicSolve[Equal[Sum[Sum[Product[Aggregate[Negative[4.905]],Exponent[t,2]],Product[v_0,t]],h_0],h_max],t]Solution[{t,ExpressionSetPoint[ExpressionWithCondition[Divide[Sum[Product[100,Sqrt[Sum[Exponent[v_0,2],Divide[Product[981,h_0],50],Negative[Divide[Product[981,h_max],50]]]]],Product[100,v_0]],981],GreaterOrEqual[Sum[Negative[Divide[Product[981,h_max],50]],Divide[Product[981,h_0],50],Exponent[v_0,2]],0]],False,ReservedReal]}]Solution[{t,ExpressionSetPoint[ExpressionWithCondition[Divide[Sum[Negative[Product[100,Sqrt[Sum[Exponent[v_0,2],Divide[Product[981,h_0],50],Negative[Divide[Product[981,h_max],50]]]]]],Product[100,v_0]],981],GreaterOrEqual[Sum[Negative[Divide[Product[981,h_max],50]],Divide[Product[981,h_0],50],Exponent[v_0,2]],0]],False,ReservedReal]}]WorksheetMinus[Divide[Sum[Product[100,Sqrt[Minus[Sum[Exponent[v_0,2],Divide[Product[981,h_0],50]],Divide[Product[981,h_max],50]]]],Product[100,v_0]],981],Divide[Sum[Product[Negative[100],Sqrt[Minus[Sum[Exponent[v_0,2],Divide[Product[981,h_0],50]],Divide[Product[981,h_max],50]]]],Product[100,v_0]],981]]Divide[Product[200,Sqrt[Sum[Exponent[v_0,2],Divide[Product[981,h_0],50],Negative[Divide[Product[981,h_max],50]]]]],981]