Question

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!

Answer 1

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.