De elaborat un program care calculeaza intr-un sir arbitrar de caractere introdus de la tastatura numarul vocalelor mici va rog frumos ajutatima e urgent!
Program Pn; var s1:string; s,i:integer; begin Writeln('Dati sirul'); readln(s1); for i:=1 to length(s1) do begin if (s1[i]='a') or (s1[i]='e') or (s1[i]='i') or (s1[i]='o') or (s1[i]='u') then s:s+1; end; Writeln('Vocale=',s); readln; end.
Vă mulțumim că ați vizitat platforma noastră dedicată Informatică. Sperăm că informațiile oferite v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Așteptăm cu nerăbdare să vă revedem și nu uitați să ne salvați în lista de favorite!
