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