Question

ME AJUDEM, NECESSITO DE UMA RESPOSTA

Fazendo uso da linguagem Pascal, desenvolva um programa com o nome Calcula_Media. O mesmo deverá realizar a leitura do nome do aluno e as três notas de uma disciplina. Ao final, escreva o nome do aluno, sua média e se ele foi aprovado, considerando que a média para aprovação deverá ser igual ou maior que 7 (sete).

Observação: não é necessário a utilização de Array.

Answer 1

Resposta:

program Media;

var

   nome:string;

   n1,n2,n3,media:real;

begin

 write('Entre com o nome do aluno: ');

 read(nome);

 write('Entre com a primeira nota: ');

 read(n1);

 write('Entre com a segunda nota: ');

 read(n2);

 write('Entre com a terceira nota: ');

 read(n3);

 media:=(n1+n2+n3)/3;

 if (media >=7) then

   begin

       write('Aluno ',nome,' foi aprovado com a media de ',media:1:2,'!')

   end

 else

   begin

       write('Aluno ',nome,' foi reprovado com a media de ',media:1:2,'!')

   end;

end;

Explicação: