Составить программу.

Дано натуральное число 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