Используйте IntegerLength , чтобы получить количество цифр целого числа.
In[3]:= n=200;
In[4]:= IntegerLength[n] - 1
Out[4]= 2
В качестве альтернативы, если число может быть нецелым, вы можете просто использовать функцию журнала
In[6]:= Floor[Log10[n]]
Out[6]= 2