Question

10) Faça um programa em Pascal que receba o peso de UM CASAL, calcule e imprima na tela a média aritmética entre eles, caso a média aritmética seja:

♦ Media maior ou igual a 70 kg – Imprima na tela “PROCURAR UM NUTRICIONISTA.”
♦ Media menor que 70 KG – imprima na tela “Parabéns, vocês estão na medida certa”.

Answer 1

program detector_de_peso;

   var

   peso: REAL;

begin

   writeln ('Digite o peso do casal');

   readln (peso);

   

   If (peso >= 70) Then {Condição - SE peso for maior ou igual a 70}

       Writeln ('PROCURAR UM NUTRICIONISTA.');

       

   If (peso < 70) Then {Condição - SE peso for menor que 70}

       Writeln ('Parabéns, vocês estão na medida certa');    

end.