Задание

Определить количество цифр в десятичной записи целого положительного числа.

var

count, N: integer;

begin

Read(N);

count := 0;

While N>0 do

begin

N:= N div 10;

count := count+1;

end;

Write (count)

end.