Mathematica solves this equation with the following code

Input := 


Solve[Sqrt[d/4.9] == d/340]

Output =


{{d -> 0.}, {d -> 23591.8}}