Дано натуральное число.определите количество цифр в нём.( в паскаль)

[Филипп]

Можете навести на мысль, как решить это 9 класса: - дано натуральное число.определите количество цифр в нём.( в паскаль)

 

[Fesa]

Дано натуральное число. Необходимо подсчитать количество его цифр. Формат входных данных В программу вводится одно целое число n (1≤n≤231−1 ). Формат выходных данных Программа должна вывести количество цифр числа n .

 

[Филипп]

Для решения задачи используем цикл с предусловием:
program tsifri;

var m, n: integer;
k: integer; {является счетчиком цифр числа}
begin

{Вводим исходное произвольное целое число}
writeln('Введите N='); readln;
m:=n;k:=0; {счетчику цифр присваиваем начальное значение}
{Пока m<>0 выполнять тело цикла}
while m <>0 do
begin
k:=k+1;
m:= m div 10; {"Уменьшаем" число на последнюю цифру, т. е. в 10 раз.}
end;
{Вывод количества цифр.}
writeln('B числе ',n,'- ',k, ' цифр (ы)');

end.