with Ada.Text_IO; use Ada.Text_IO;
 
procedure Q5C is
   Input_String : String(1 .. 100); -- Tamanho máximo da string
   Length       : Natural;
   Vowel_Count  : Integer := 0;
 
begin
   -- Leitura da string de entrada
   Put_Line("Digite uma string:");
   Get_Line(Input_String, Length);
 
   -- Contagem de vogais
   for I in 1 .. Length loop
      case Input_String(I) is
         when 'A' | 'a' | 'E' | 'e' | 'I' | 'i' | 'O' | 'o' | 'U' | 'u' =>
            Vowel_Count := Vowel_Count + 1;
         when others =>
            null; -- Ignora outros caracteres
      end case;
   end loop;
 
   -- Exibe a quantidade de vogais
   Put_Line("Quantidade de vogais: " & Integer'Image(Vowel_Count));
end Q5C;
 

d2l0aCBBZGEuVGV4dF9JTzsgdXNlIEFkYS5UZXh0X0lPOwoKcHJvY2VkdXJlIFE1QyBpcwogICBJbnB1dF9TdHJpbmcgOiBTdHJpbmcoMSAuLiAxMDApOyAtLSBUYW1hbmhvIG3DoXhpbW8gZGEgc3RyaW5nCiAgIExlbmd0aCAgICAgICA6IE5hdHVyYWw7CiAgIFZvd2VsX0NvdW50ICA6IEludGVnZXIgOj0gMDsKCmJlZ2luCiAgIC0tIExlaXR1cmEgZGEgc3RyaW5nIGRlIGVudHJhZGEKICAgUHV0X0xpbmUoIkRpZ2l0ZSB1bWEgc3RyaW5nOiIpOwogICBHZXRfTGluZShJbnB1dF9TdHJpbmcsIExlbmd0aCk7CgogICAtLSBDb250YWdlbSBkZSB2b2dhaXMKICAgZm9yIEkgaW4gMSAuLiBMZW5ndGggbG9vcAogICAgICBjYXNlIElucHV0X1N0cmluZyhJKSBpcwogICAgICAgICB3aGVuICdBJyB8ICdhJyB8ICdFJyB8ICdlJyB8ICdJJyB8ICdpJyB8ICdPJyB8ICdvJyB8ICdVJyB8ICd1JyA9PgogICAgICAgICAgICBWb3dlbF9Db3VudCA6PSBWb3dlbF9Db3VudCArIDE7CiAgICAgICAgIHdoZW4gb3RoZXJzID0+CiAgICAgICAgICAgIG51bGw7IC0tIElnbm9yYSBvdXRyb3MgY2FyYWN0ZXJlcwogICAgICBlbmQgY2FzZTsKICAgZW5kIGxvb3A7CgogICAtLSBFeGliZSBhIHF1YW50aWRhZGUgZGUgdm9nYWlzCiAgIFB1dF9MaW5lKCJRdWFudGlkYWRlIGRlIHZvZ2FpczogIiAmIEludGVnZXInSW1hZ2UoVm93ZWxfQ291bnQpKTsKZW5kIFE1QzsK

QWJhY2F0ZQ==

Abacate