Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  medianota
Language: PASCAL
Code:
program media_aluno;
var nota1, nota2, nota3, notafinal : real;
begin
   Write ('Insira as notas:');
   Read ('nota1, nota2, nota3');
      notafinal:= nota1 + nota2 + nota3 / 3;
      begin
         if notafinal > 7 then
         write ('ParabĂ©ns, vc foi aprovado(a)!');
         else
         write ('Reprovado.');
      end;         
end.
          
Comments: