Question

se citeste un numar natural n.Se cere sa se afiseze cate cifre egale cu 7 sunt in numar?

Answer 1

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.