👤
MEMORY5ZE
a fost răspuns

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ăspuns :

HOWARDAXZE

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:

Vezi imaginea HOWARDAX
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!


Ze Schools: Alte intrebari