Question

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

Answer 1

var

n, count:integer;

begin

write('n = '); readln(n);

count := 0;

while n <> 0 do

begin

inc(count);

n := n div 10;

end;

writeln('Count = ', count);

end.