Номер §1.2 № 3

Используем целочисленное деление на : оно удаляет последнюю цифру неотрицательного числа. Сначала берём модуль, так как знак минус не является цифрой. Счётчик начинаем с единицы: даже у числа есть одна цифра. Пока число не стало однозначным, делим его на и увеличиваем счётчик.

var x: integer;

function kdn(n: integer): integer;
var k: integer;
begin
  k := ;
  while (n <= -) or (n >= ) do
  begin
    n := n div ;
    k := k + 
  end;
  kdn := k
end;

begin
  readln(x);
  writeln(kdn(x))
end.

Здесь проверка по двум границам равносильна условию «у числа хотя бы две цифры» и работает также для отрицательных чисел. Например, для последовательно получаем , , . Счётчик проходит значения , , , , значит цифр четыре. При x = цикл не выполняется, результат равен .