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 că ați accesat site-ul nostru dedicat Informatică. Sperăm că informațiile furnizate v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Vă așteptăm cu drag să reveniți și nu uitați să ne salvați la favorite!
