написать программу которая вычисляет оптимальный вес пользователя сравнивая его с реальными

2
Ответов - 1
написать программу которая вычисляет оптимальный вес пользователя сравнивая его с реальными

Вопрос задал ученик
Категории: Информатика

Ответы


Гость

Program Zadacha1;
Var ves, rost, optVes:integer;
Begin
  write('введите массу тела');
  read(ves);
  write('введите рост в см');
  read(rost);
  optVes:=rost-100;
  if ves>optVes then write('вам необходимо похудеть на', abs(optVes-ves) );
  if ves<optVes then write('вам необходимо поправиться на', abs(optVes-ves) );
  if ves=optVes then write ('ваш вес оптимальный')
End.

Добавить ответ
Похожие вопросы
Топ Комментарии Архив
«    Март 2020    »
ПнВтСрЧтПтСбВс
 1
2345678
9101112131415
16171819202122
23242526272829
3031 
Теги