Solve[(x^50)==(E^x),x,Reals]

Solve[(x^50)==(E^x),x,Reals]//N

Exp[282.116]

Plot[{(x^50),(E^x)},{x,-300,300}
,PlotLegends->"Expressions"
,PlotRange->All
]

LogPlot[{(x^50),(E^x)},{x,-300,300}
,PlotLegends->"Expressions"
,PlotRange->All
]

Plot[Evaluate[Log[10,{(x^50),(E^x)}]],{x,-300,300}
,PlotLegends->"Expressions"
,PlotRange->All
]