Составьте алгоритм для определения количества цифр в записи произвольного натурального числа (для программы паскаль)

Var x: integer; begin readln(x); writeln(length(inttostr( end.

Если число произвольное, то оно может содержать произвольное количество цифр, большее нуля. число считается натуральным, поэтому наложим на ввод ограничения: вводить нужно только цифры, а остальные знаки будут игнорироваться. в этом случае количество цифр в числе будет равно количеству введенных цифр. число вводим, как символьную строку, а затем при подсчете цифр пропускаем все нецифровые символы. const   digits=['0','1','2','3','4','5','6','7','8','9']; var   s: string;   i,k: integer; begin   write('введите произвольное натуральное число: ');   readln(s);   k: =0;   for i: =1 to length(s) do       if s[i] in digits then inc(k);   writeln('количество цифр в числе равно ',k) end. тестовые решения: введите произвольное натуральное число: -43546543235.08754 количество цифр в числе равно 16 введите произвольное натуральное число: 96435034623 количество цифр в числе равно 11 введите произвольное натуральное число: и даже так: -43 323 453.657 4 посчитает! количество цифр в числе равно 12

var a,b: integer;

is7: boolean;

begin

    readln(a);

    b: =0;

    is7: =false;

    while a < > 0 do

    begin

        b: =b+a mod 10;

        if a mod 10 = 7 then

            is7: =true;

        a: =a div 10;

    end;

    wrtieln('сумма цифр: ', b);

    write('цифра 7 ');

    if is7 then writeln('есть') else writeln('нет');

    readln;

end.