Pascal, IMC


Program ICODEimc;
Uses Crt;
Var ALTURA, PESO, MASSA : Real;

Begin
  Writeln('Qual a sua altura?');
  Readln(ALTURA);
  Writeln('E o peso?');
  Readln(PESO);
  MASSA := ALTURA * 2 / PESO;
  If  MASSA < 26  then
    Writeln('Normal.')
    Else
    If (MASSA > 26) and (MASSA <= 30) then
      Writeln('Obeso.')
      Else
        If  MASSA >= 30  Then
        Writeln('Obeso Mórbido.')
End.






HOT NA SEMANA

C, Ordenar um Vetor em Ordem Crescente

CSS, Efeito clarear e escurecer em CSS

C, Programa Números em Ordem Crescente

Omegle Saiu do Ar







© Copyright 2017 - INFORMATICODE, todos os direitos reservados.