SLE_Practica41_RepeticionLetra

var
    texto: cadena
    caracter: cadena
     letra: cadena
    contador, i: numerico

inicio
    cls()
    // Leer la cadena de caracteres
    imprimir("Introduzca la cadena de caracteres: ")
    leer(texto)

    // Leer el carácter a buscar
    imprimir("\n¿Qué carácter desea buscar? ")
    leer(caracter)

    // Inicializar el contador
    contador = 0

    // Contar el número de veces que aparece el carácter en la cadena
    desde i=1 hasta strlen(texto) {
          letra = substr( texto, i, 1)          // extraer una letra de la cadena
        si (caracter == letra) {                   // verificar si la letra obtenida es igual a la letra buscada
            contador = contador + 1          // contar
        }
    }

    // Imprimir el resultado
    imprimir("\nEl carácter ", caracter, " aparece ", contador, " veces en la cadena ", texto)
fin