var n,c,s:integer; begin writeln('Introduceti numarul: '); read(n); while n>0 do begin c:=n mod 10; n:= n div 10; if c=7 then inc(s); end; writeln('Numarul contine ',s,' cifre de 7'); end.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!
