Question

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

составить блок схему

Answer 1

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

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

Answer 2

Это если строкой разрешено пользоваться.

Answer 3

А где запрет?:)

Answer 4

Можно было бы целочисленным делением обойтись, но так короче)