Repede.. se citesc de la tastatura un numar k(nu este egal) cu 0 si un sir de numere intregi pana la intalnirea numarului 0. Sa se afiseze cate numere din sir au suma cifrelor egala cu k.
begin write('k:'); read(k); writeln; writeln('Numere:'); read(n); while n<>0 do begin read(n); s:=0; c:=0; l:=n; while l<>0 do begin c:=l mod 10; l:=l div 10; s+=c; end; if s=k then inc(b); end; writeln; writeln('Numere egale cu k: ',b); 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!
