Question

Algoritimo em Pascal
Escreva um algoritmo para ler as notas das duas avaliações de um aluno no semestre, calcular e escrever a média
semestral e a seguinte mensagem: ‘PARABÉNS! Você foi aprovado’ somente se o aluno foi aprovado
Acima de 1800,00 27,5% 360,00

Answer 1

{Escreva um algoritmo para ler as notas das duas avaliações de um aluno no semestre, calcular e escrever a média semestral e a seguinte mensagem: ‘PARABÉNS! Você foi aprovado’ somente se o aluno foi aprovado.}
Program ex_01IF ;
var
n1,n2:integer;
media:real;
Begin
writeln('Escreva a 1§ nota');
read(n1);
writeln('Escreva a 2§ nota');
read(n2);
media:=(n1+n2)/2;
if media >=7 thenwrite ('PARABÉNS! Você foi aprovado');  
End.