Alg1 - 3ªlista. 12 - Escreva um algoritmo que leia as notas das três provas de um aluno (p1, p2 e p3), calcule sua média aritmética e escreva-a.

algoritmo "nota média do aluno"
// Função :
// Autor :
// Data : 22/09/2010
// Seção de Declarações
var
p1,p2,p3,m:real

inicio
// Seção de Comandos
escreva("Entre com a primeira nota ")
leia(p1)
escreva("Entre com a segunda nota ")
leia(p2)
escreva("Entre com a terceira nota ")
leia(p3)

se((p1>=0) e (p1<=10) e(p2>=0)e(p2<=10) e (p3>=0)e (p1<=10)) entao
m<-(p1+p2+p3)/3
escreva("A média é: ",m)
senao
escreva("Dados Inválidos, a nota deve ser maior ou igual a 0 e menor ou igual a 10)
fimse

fimalgoritmo