Média MB / B / R / I
Program P_Decisao;
var n1,n2,media:real;
Begin
write('Digite a primeira nota...: ');
read(n1);
write('Digite a segunda nota....: ');
read(n2);
media:=(n1+n2)/2;
writeln('A média é ',media:2:2);
if (media <= 4) then
write('Média I');
if (media > 4) and (media <= 6) then
write('Média R');
if (media > 6) and (media <= 9.5) then
write('Média B');
if (media > 9.5) then
write('Média MB');
End.
Nenhum comentário:
Postar um comentário