SetPrecision[...,3] should do this.
Possibly
N[Mean[Rationalize@{3.81913, 243.354}], 3]
is one way to go.... when you are working with machine precision numbers then machine precision arithmetic is used throughout the calculation.
Thanks!, both options worked.