FindRoot[Integrate[1/Sqrt[2 Pi]*Exp[-x^2/2], {x, 0, y}] == 0.6826/2, {y, 0}]