Exemple de funcții Pascal care numără cifrele unui număr întreg:
{Varianta 1 - Folosind String-uri și funcțiile caracteristice acestora}
function cifre(n:longint):byte;
var s:string;
begin
str(n, s);
cifre:=length(s)
end;
{Varianta 2 - Folosind un numărător și împărțiri repetate}
function cifre(n:integer):integer;
var nr:byte;
begin
nr:=0;
while n 0 do
begin
nr:=nr+1;
n:=n div 10
end;
cifre:=nr
end;
Bye-Bye!