Дано целое число, определить количество цифр в этом числе.

program zz1;

var s, n, k:integer; / / задаем переменные целого типа

begin

write (' введите число ');

read (n); / / вводим с клавиатуры число

s:=0; / / задаем начальное значение для количества

while n > 0 do / / организуем цикл, пока в заданном числе есть цифры

begin

k:=n mod 10; / / получаем последнюю цифру заданного числа

s:=s + 1; / / считаем ее

n:=n div 10; / / отбрасываем ее из числа

end;

/ / выводим ответ

writeln (' количество цифр числа = ', s);

end.