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

+ 0 -

Niskala1999

16 авг. 2014 г., 19:07:39 (9 лет назад)

Рекурсивное решение:

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;

Вызывать функцию вот так: 

+ 0 -

Ana888868

16 авг. 2014 г., 19:41:24 (9 лет назад)

Короткое решение:) Можно было бы, конечно, и без числа, но лучше будет, если интерпретатор сам распорядится ошибочным вводом =)

var a: integer;
    b: string;
begin
     readln(a);
     b := inttostr(a);
     writeln(length(b));
end.