Exercício cap.3.12

12. Escreva um algoritmo que leia as notas das três provas de um aluno (p1, p2, p3), calcule sua média aritmética e escreva-a. As notas devem estar no intervalo[0,10].

Resposta:

algoritmo "Média aritmética"
var
  p1,p2,p3,media:real
inicio
  escreval("Cálculo da média aritmética.")
  escreva("Digite o valor da prova 1 = ")
  leia(p1)
  escreva("Digite o valor da prova 2 = ")
  leia(p2)
  escreva("Digite o valor da prova 3 = ")
  leia(p3)
  se (p1>10)ou(p1<0)entao
   escreva("O valor da prova 1 deve ser de 0 a 10.")
  senao
    se (p2>10)ou(p2<0)entao
     escreva("O valor da prova 2 deve ser de 0 a 10.")
    senao
      se (p3>10)ou(p3<0)entao
       escreva("O valor da prova 3 deve ser de 0 a 10.")
      fimse
  media <- (p1+p2+p3)/3
  escreval("Nota do aluno é igual a ",media:5:2)
  escreval("*** F I M ***")
  fimse
  fimse
fimalgoritmo