написать программу которая вычисляет оптимальный вес пользователя сравнивая его с реальными выдаёт рекомендации о необходимости поправиться или похудеть.по формуле рост минус 100…     написать то легко но учитель сказал  что б говорилось на сколько худеть или поправиться надо …(( ну ни как не могу додуматься(( помогите ((  вот сама написаная программа Program Zadacha1; Var ves, rost, optVes:integer; Begin write(‘введите массу тела’); read(ves); write(‘введите рост в см’); read(rost); optVes:=rost-100; if ves>optVes then write(‘вам необходимо похудеть’ ); if ves

Вопрос от посетителя

написать программу которая вычисляет оптимальный вес пользователя сравнивая его с реальными выдаёт рекомендации о необходимости поправиться или похудеть.по формуле рост минус 100…

 

 

написать то легко но учитель сказал  что б говорилось на сколько худеть или поправиться надо …(( ну ни как не могу додуматься(( помогите ((  вот сама написаная программа

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

Отвечает Илюха:

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  if ves=optVes then write (‘ваш вес оптимальный’)
End.

Добавить свой ответ