segunda-feira, novembro 09, 2015

LP - Comando de Decisão - Pascal




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