4_62

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