5. Напишите функцию kdn(), которая вычисляет количество цифр вводимого целого числа.

Вариант на языке Pascal:

function kdn(n: integer): integer;
var
  k: integer;
begin
  n := Abs(n);
  if n = 0 then
    kdn := 1
  else
  begin
    k := 0;
    while n > 0 do
    begin
      n := n div 10;
      k := k + 1;
    end;
    kdn := k;
  end;
end;

На каждом шаге число уменьшается в 10 раз целочисленным делением, поэтому количество выполненных делений равно количеству цифр.