Кількість цифр у числі

Pascal Рекурсія

рекурсія по розрядах

Блок-схема за ДСТУ

function digits(n: integer): integer;
begin
  if n < 10 then
    digits := 1
  else
    digits := 1 + digits(n div 10);
end;