Elaboraţi un program care citește de la tastatură n caractere și afi șează pe ecran:
a) numărul cifrelor zecimale citite;
b) numărul cifrelor pare;
c) numărul cifrelor impare;
d) numărul literelor citite;
e) numărul vocalelor;
f) numărul consoanelor.
Caracterele introduse se separă prin acţionarea tastei . Sînt admise cifrele zecimale 0, 1, 2, ..., 9 și literele mari A, B, C, ..., Z ale alfabetului latin.
(Vă rog, am nevoie repede)
(Limbajul PASCAL)
Răspunsuri la întrebare
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:
