Если что,
маленький код на математикеКод:
pr[x_] := (Sqrt[2*Pi]/x) Sum[E^((-(2*k - 1)^2)*(Pi^2/(8*x^2))), {k, 1, 100}];
crit[α_, n_] := (x /. FindRoot[pr[x] == 1 - α, {x, 0.5}])/Sqrt[n];
crit[0.7, 20]
В последней строчке подставляются значения.
Достаточно вставить его
сюда и нажать
Shift+Enter.