👤
a fost răspuns

Scrieţi un program pascal ce va rezolva următoarea problemă
Fie dat un şir format din caractere mari ale alfabetului latin. Scrieţi programul care numără cîte vocale conţine şirul dat

Răspuns :

Program Vocale;
Var text:string;
i,n,nr:integer;
Begin
write('Introdu textul:');
readln(text);
n:=length(text);
nr:=0;
for i:= 1 to n do
if text[i] in ['A','E','I','O','U','a','e','i','o','u'] then nr:= nr +1;
writeln('sunt',' ',nr,' ','vocale');
readln;
END.
Vă mulțumim pentru vizita pe platforma noastră 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. Așteptăm cu entuziasm să reveniți și vă invităm să ne adăugați la lista de favorite!


Viz Lesson: Alte intrebari