Răspuns:
program Secv_car;
var s:string;
i, nc:integer;
C: set of char;
begin
read(s);
C:=['0'..'9']; nc:=0;
for i:=1 to
length(s) do
begin
if s[i] in C then inc(nc);
end;
writeln(nc);
end.
Explicație:
Dacă programul necesită afișare niște comentarii explicative, sper să le poți face... Important să înțelegi logica codului..
Succese!