a)
Intreg n, d, prim, nr, uc;
Citeste n;
Cat timp (n<>0) executa
uc = uc mod 10;
d=2;
prim=1;
cat timp (d*d<=uc AND prim=1) executa
daca (uc mod d=0) atunci
prim=0;
sfarsit daca
d=d+1;
sfarsit cat timp
daca (prim =1 AND uc<>0)
nr=nr+1;
sfarsit daca
n= n div 10;
sfarsit cat timp
scrie nr
b) n - variabila ce retine numarul
uc – retine ultima cifra a numarului
prim – presupun ca ultima cifra nu are alti viziori, exceptie 1 si cifra
d – divizorii
nr - numarul cifrelor prime
c) data de intrare – n, numarul dat
date de iesire – nr, numarul cifrelor prime