terça-feira, 28 de maio de 2013

Faça um algoritmo para receber a idade e o sexo de um grupo indeterminado de pessoas exibindo ao final a quantidade de pessoas do sexo feminino.

algoritmo "Quantidade_Feminino"
var
sexo, resposta: caractere
continua, idade, qtd: inteiro
inicio
enquanto continua = 0 faca
   escreval ("Informe o sexo (F ou M): ")
   leia (sexo)
   escreval ("Informe a idade:")
   leia (idade)
   se sexo = "F" entao
      qtd <- qtd + 1
   fimse
   escreval ("Continua (S/N): ")
   leia (resposta)
   se resposta = "N" então
      continua <- 1
   fimse
fimenquanto
escreval ("O total de mulheres é: ", qtd)
fimalgoritmo
 
;