Atividade
Faça um algoritmo que leia o peso e a altura de uma pessoa, calcule seu IMC=peso/altura² e informe a classificação da pessoa de acordo com seu IMC:
IMC < 18.5 -> Desnutrido
18.5 <= IMC <= 24.9 -> Normal
IMC > 24.9 -> Obeso
Resposta
program calculoIMC;
var peso, altura, IMC: real;
begin
write('Digite o peso: ');
read(peso);
write('Digite a altura: ');
read(altura);
IMC := peso/(altura*altura);
if IMC < 18.5 then writeln('Desnutrido');
if (18.5 <= IMC) and (IMC <= 24.9) then writeln('Normal');
if IMC > 24.9 then writeln('Obeso');
end.
Laboratório de Robótica Inclusiva 
Um comentário em “IMC”