Lösungen

Plot[Log[x]-x/10,{x,0.1,50}];

FindRoot[Log[x]-x/10==0,{x,1}]

FindRoot[Log[x]-x/10==0,{x,36}]

Plot[E^x-x^2,{x,-3,3}];

FindRoot[E^x-x^2==0,{x,-1}]