Média

{Escreva um programa que calcule a media aritmetica das tres notas dos

alunos de uma classe. O programa devera ler, alem das notas, o codigo do

aluno e devera ser encerrado quando o codigo for igual a zero}

Program Exercicio_2;

Uses CRT;

Var

Codigo: Integer;

Media, Nota1, Nota2, Nota3: Real;

Begin

Media := 0;

Clrscr;

While True Do

Begin

Writeln('Digite o C¢digo do Aluno: ');

Read(Codigo);

If (Codigo = 0) Then

Break

Else

Begin

Writeln('Digite a 1¦ Nota: ');

Read(Nota1);

Writeln('Digite a 2¦ Nota: ');

Read(Nota2);

Writeln('Digite a 3¦ Nota: ');

Read(Nota3);

Media := (Nota1+Nota2+Nota3)/3;

Writeln('A M‚dia do Aluno de codigo ', Codigo, ' ‚: ', Media:10:2);

End;

End;

End.