Question

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

Answer 1

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');