Алгоритм подсчёта количества цифр Опции

[Диона]

Подскажите алгоритм подсчёта количества цифр целого числа. Никак не получается разобраться.

[len4ik]

а вот такой код, как вам ( я правда в паскале не очеь, тока изучаю);

program o;
var a,b,i:integer;
begin

read(a);
i:=0;
while a>0 do
begin
a:=a div 10;
i:=i+1;
end;
write(i)
end.