$PreRead=(#/.s_String/;StringMatchQ[s,NumberString]&&Precision@ToExpression@s==MachinePrecision:>s<>"`1000."&);

x=0.5;Precision[x]

y=1.;
z=3;
y/z

Precision[y/z]

NumberForm[y/z,33]