В памяти компьютера на кодирование 1 символа требуется 1 байт.
Следовательно 1,25 Мб/1 байт = 1,25*1024*1024=1310720 символов в тексте
Получается 2,4 Другие попросту не подходят
<span> 0,000156 х 10² = 0.156 х 10⁻¹
</span>-0,01678 х 10³ = <span>-0,1678 х 10²</span>
А зачем нам, собственно, находить количество цифр в числе?
Можно просто сравнивать соседние числа.
---
uses crt;
var a,k,max:integer;
begin
readln(a);
while a>0 do
begin
k:=a mod 10;
if k>max then max:=k;
a:=a div 10;
end;
writeln(max);
<span>end.</span>