← All examples

Digit count

Pascal Recursion

recursion over digits

Flowchart (ISO 5807)

YesNoStartInput nn < 10digits = 1digits = 1 + digits(n div 10)EndFigure 1 — digits

Source code

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