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

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

для того чтобы написать текст в две колонки, нам потребуется сделать три щелчка мышью. а для того чтобы разбить уже введённый текст на две колонки, нам потребуется произвести всё те же три щелчка мышью. но если, как говорят, цепляться к словам, то тогда четыре щелчка.

всё это сказано с юмором, желая подчеркнуть то, насколько процесс ввода текста с разделением его на две колонки прост, в сравнении, например, с выборочной нумерацией многостраничного документа.

имеющаяся специальная опция позволят не только сразу вводить текст колонками, и даже тремя, а не только двумя, но и разбить на колонки любую часть готового текста, введённого самым обычным способом.

а давайте с готового текста и начнём.

итак, документ состоит из одной страницы. мы ввели текст, и вдруг выяснилось, что текст на странице должен располагаться в две колонки. перед тем как начать действовать, обратим внимание на линейку над страницей и на положение ползунков регулировки полей:

итак, взглянув на линейку, уверенным движением руки направляем курсор мыши в верхнее меню и щелчком разворачиваем вкладку «разметка страницы», где вторым щелчком по значку опции с названием «колонки», открываем окошко с вариантами:

третьим щелчком выбираем вариант «две»:

Const n=20; var a: array[1..n] of integer; i,k,m: integer; begin randomize; writeln('массив a: '); for i: =1 to n do   begin   a[i]: =random(51);   write(a[i]: 3);   end; writeln; k: =0; m: =0; for i: =1 to n-1 do   begin   if a[i+1]> a[i] then begin m: =m+1; end   else begin if m> 0 then k: =k+1; m: =0; end;   end; if m> 0 then k: =k+1; writeln('k = ',k); end. пример: массив a:   7 30 22   0 17   4   2 32 39 26 23 41   1 38 47 21 38 31 43   7 k = 7