Составьте алгоритм для определения количества цифр в записи произвольного натурального числа
Лови var s:string; a:integer; begin write('Введите натуральное число - '); readln(s); a:=length(s); writeln('В числе ',a,' цифр.'); end.
А в кумире не мог бы?