Răspuns :
program Hello;
var c:char;
i, n:integer;
cz, cp, ci, lit, voc, cons:integer;
begin
cz:=0;
cp:=0;
ci:=0;
lit:=0;
voc:=0;
cons:=0;
writeln('Dati n:'); readln(n);
writeln('Dati ',n,' caractere:');
for i:=1 to n do begin
readln(c);
if(ord(c)>=48) AND (ord(c)<=57) then begin
cz:=cz+1;
if((ord(c)-48) mod 2=0) then begin
cp:=cp+1;
end else begin
ci:=ci+1;
end;
end;
if(ord(c)>=65) AND (ord(c)<=90) then begin
lit:=lit+1;
if(ord(c)=65) OR (ord(c)=69) OR (ord(c)=73) OR (ord(c)=79) OR (ord(c)=85) then begin
voc:=voc+1;
end else begin
cons:=cons+1;
end;
end;
end;
writeln('Numarul cifrelor zecimale:',cz);
writeln('Numarul cifrelor pare:',cp);
writeln('Numarul cifrelor impare:',ci);
writeln('Numarul literelor:',lit);
writeln('Numarul vocalelor:',voc);
writeln('Numarul consoanelor:',cons);
end.
Rezultat:

Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Ne bucurăm să vă revedem și vă invităm să ne adăugați în lista de favorite!