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 pentru vizita pe site-ul nostru dedicat Informatică. Ne dorim ca informațiile furnizate să vă fi fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Revenirea dumneavoastră ne bucură, iar pentru acces rapid, adăugați-ne la favorite!
