Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- algoritmo "4.62"
- var
- ncp, m, f, vin4:inteiro
- s:literal
- inicio
- escreva("Informe o número de crianças nascidas no período: ")
- leia(ncp)
- vin4 <- 0
- repita
- se (s <> "vazio") entao
- escreva("Informe o sexo [M/F]: ")
- leia(s)
- se (s = m) entao
- m <- m + 1
- senao
- f <- f + 1
- fimse
- escreva("Informe o número de meses de vida da criança: ")
- leia(mv)
- se (mv <= 24) entao
- vin4 <- vin4 + 1
- fimse
- fimse
- ate (s = "vazio")
- escreval("A porcentagem de crianças mortas nesse período é: ", (((m+f)*100))/ncp))
- escreval("A porcentagem de crianças do sexo masculino, mortas nesse período é: ", (((m)*100))/ncp))
- escreval("A porcentagem de crianças que viveram 24 meses ou menos é: ", (((vin4)*100))ncp))
- fimalgoritmo
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement