O aprendizado é como o horizonte, não há limites. Este Blog tem fins pedagógicos voltados a área de Informática.
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.
Assinar:
Postar comentários (Atom)
Nenhum comentário:
Postar um comentário