Question

Alguém sabe como fazer no visualg?

Answer 1

Algoritmo "Poluicao"

var

   indPoluicao : real

inicio
   

  leia(indPoluicao)
   
se ((indPoluicao > 0,3) e (indPoluicao < 0,4)) entao
    escreval("Intimação para o grupo 01 suspender atividade")
senao se indPoluicao < 0,5 entao
   escreval("Intimação para o grupo 01 e 02 suspender atividades")
senao
   escreval("Intimação para o grupo 01, 02 e 03 suspender atividades")
    fimse
 fimse

fimalgoritmo