Olá, @Felipe Cunha! Desenvolvi este algoritmo. Espero que tenha ajudado!
Algoritmo "Contagem de pessoas"
Var
nome, sexo, optEncerrar: caractere
numPessoas, numFem, numMasc: inteiro
Inicio
numPessoas <- 0
numFem <- 0
numMasc <- 0
enquanto (optEncerrar <> "S") faca
escreva("Digite o nome: ")
leia(nome)
escreva("Digite o sexo (M/F): ")
leia(sexo)
numPessoas <- numPessoas + 1
se (sexo = "M") entao
numMasc <- numMasc + 1
senao
numFem <- numFem + 1
fimse
escreva("Deseja encerrar o programa? (S/N): ")
leia(optEncerrar)
fimenquanto
escreval("Número de pessoas: ", numPessoas)
escreval("Número de homens: ", numMasc)
escreva("Número de mulheres: ", numFem)
Fimalgoritmo