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

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