Question

De la tastatura se introduce un sir de caractere format din litere minuscule , reprezentat de variabila s.Determinati cite vocale se contin in sirul dat.
va rog !!!

Answer 1

program Sir;

var
  S: string;
  i, vocale: integer;
  //a, e, i, o, u
begin
  readln(S);
  vocale := 0;
  for i := 1 to length(s) do
   begin
    if pos('a', s, i)=i then
      vocale := vocale + 1
    else if pos('e', s, i)=i then
      vocale := vocale + 1
    else if pos('i', s, i)=i then
      vocale := vocale + 1
    else if pos('o', s, i)=i then
      vocale := vocale + 1
    else if pos('u', s, i)=i then
      vocale := vocale + 1;
  end;
  writeln('In : ' + s);
  writeln('Sunt ' + vocale + ' vocale');
end.

3a5210bbe87902ea006ee1a56160eee0.txt

38a0d82feb001a97be50bbd789b917ae.pas