• Написать программу, которая запрашивает реальный рост и вес пользователя, вычисляет его оптимальный вес, сравнивает его с реальным и выдает рекомендацию о необходимости поправиться или похудеть. Pascal ABC

Ответы 2

  • Расчет по индексу массы тела Кетле.
    • Автор:

      erin67
    • 6 лет назад
    • 0
  • var  p,h,imt:real;begin  Write('Введите вес в кг и рост в см: ');  Read(p,h);  imt:=p/Sqr(h/100);  if imt<=16 then Writeln('Дефицит массы тела. Необходимо поправиться.')  else if imt<25 then Writeln('Нормальный вес! Так держать!')  else if imt<=30 then Writeln('Избыточная масса тела. Нужно худеть.')  else if imt<=35 then Writeln('Ожирение 1-й степени. Необходимо похудеть.')  else if imt<=45 then Writeln('Ожирение 2-й степени. Срочно худейте!')  else Writeln('Ожирение 3-й степени. Немедленно начинайте худеть!!!')end.
    • Автор:

      blanchard
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years