Aula13 - VisualG - Votação

algoritmo "Aula13"

var neleitores,brancos,nulos,validos:inteiro

    pbrancos,pnulos,pvalidos:real

inicio

      escreva("Digite o número de eleitores.........:")

      leia(neleitores)

      escreva("Digite o número de votos em branco...:")

      leia(brancos)

      escreva("Digite o número de votos nulos.......:")

      leia(nulos)

      escreva("Digite o número de votos válidos.....:")

      leia(validos)

      

      pbrancos:=(brancos*100)/neleitores

      pnulos:=(nulos*100)/neleitores

      pvalidos:=(validos*100)/neleitores

      

      escreval("Para ",neleitores, " temos")

      escreval("Porcentagem de votos brancos ",pbrancos)

      escreval("Porcentagem de votos nulos ",pnulos)

      escreval("Porcentagem de votos validos ",pvalidos)

      

fimalgoritmo