Составить программу. Дано натуральное число n. Подсчитать количество цифр этого числа.

program chisla; uses crt; var a,b,c: integer; begin writeln('Введите натуральное число: '); readln(a); b:=a; c:=0; while b <>0 do begin c:=c+1; b:= b div 10; end; writeln('B числе ',a,' - ',c, ' цифр'); end.

var   n: longint;   s: string;   k: byte; begin   Write('Введите натуральное число '); Readln(n);   { Преобразуем число к строке, убрав знак (мало ли...) }   Str(abs(n), s);   { Выведем длину полученной строки }   Writeln('Количество цифр в числе равно ', Length(s)) end. Тестовое решение: Введите натуральное число 164275353 Количество цифр в числе равно 9