👤
a fost răspuns

Intr-un fisier de tipul file of char sint inscrise caractere arbitrare.Elaborati un program care afiseaza pe ecran numarul vocalelor din fisier.
VA ROG AJUTATIMA AM NEVOIE URGENT

Răspuns :

FACEBOOKAUGUSTIEZ
Program Pn;
var
i,n,s:integer;
s1:string;
f:text;
begin
assign(f,'text.txt');
reset(f);
read(f,s1);
close(f);
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('Sunt ',s,' vocale');
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!


Ez Askings: Alte intrebari