Question

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.

Answer 1

var k,n,c,s,l,b:integer;

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.