intreg n, uc, cifra, nr_aparitii;
citeste n;
nr_aparitii=0;
cifra= n mod 10;
cat timp (n<>0) executa
uc= n mod 10;
daca (cifra = uc) atunci
nr_aparitii = nr_aparitii+1;
sfarsit daca
n= n div 10;
sfarsit cat timp;
scrie nr_aparitii
n - numarul ce trebuie prelucrat
cifra - variabila ce retine cifra, ce urmeaza a fi comparata cu toate cifrele numarului
uc - variabila ce retine pe rand ultima cifra a numarului
nr_aparitii - numarul de aparatii al cifrei