помоги решить задачу паскаль


Найти количество цифр натурального числа N.

Input

Со стандартного устройства ввода вводится 1 натуральное число, не превосходящее

2000000000.

Output

Нужно выдать на стандартное устройство вывода 1 целое число – количество цифр

введенного числа.


Sample Input Sample Output


123456789 9

2918585 7

Паскаль:

var

a:real;

b:integer;

BEGIN

a:= 2000000001;

while a > 2000000000 do

begin

write('Введите натуральные числа: ');

readln(a);

end;

write('Ответ: ', a);

while a >= 1 do

begin

a:= a / 10;

b:= b + 1;

end;

write(' ', b);

END.

var

numb, n_of_dig: integer;

begin

repeat

write('Input number: ');

readln(numb);

until (numb > 0) and (numb < 2000000000);

n_of_dig := trunc(ln(numb) / ln(10)) + 1;

writeln(n_of_dig);

end.