Question

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

Answer 1

Ответ:

var a: integer;

   b: string;

begin

    readln(a);

    b := inttostr(a);

    writeln(length(b));

end.