Question

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

Answer 1

Лови
var
s:string;
a:integer;
begin
write('Введите натуральное число - ');
readln(s);
a:=length(s);
writeln('В числе ',a,' цифр.');
end.

Answer 2

А в кумире не мог бы?