Răspuns :
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!
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile furnizate v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de ajutor, nu ezitați să ne contactați. Vă așteptăm cu drag și data viitoare! Nu uitați să adăugați site-ul nostru la favorite!