var a,b:integer; {a-число, b-количество знаков числа}
begin
readln(a);
while a<>0 do
begin
b:=b+1;
a:=a div 10;
end;
writeln(b);
end.
((0*0)+0)/(1+1))=((0+0)/1)=0/1=0
вроде так
Смотри прикрепленный файл
<span>Обработку информации в компьютере осуществляет процессор.
Память компьютера предназначена для хранения информации.
</span>