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

Рекурсивное решение: function GrowTo (number,n: integer): Integer; beginResult: =Round (exp (n*ln (number); end; function CountOfNumber (numb,exp: integer): integer; beginif (numb div GrowTo (10,exp) mod 10)=0) and (numb div GrowTo (10,exp+1) mod 10)=0) thenbegin Result: =0; endelse Result: =1+CountOfNumber (numb,exp+1); end; Вызывать функцию вот так: CountOfNumber (Chislo,0);