This is a good opportunity to teach your students about how numbers (real and integer) are stored in a computer and displayed on the screen. The function RealDigits will be helpful:
RealDigits[Log[10^3]/Log[10] + 1.]
RealDigits[N[Log[10^3]/Log[10] + 1., 20]]
