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
terça-feira, 28 de maio de 2013
Algoritmos
,
VisualG