Опубликовано 17.11.2019 по предмету Экономика от Гость

Составьте программу, которая вычисляет оптимальный вес, сравнивает его с реальным и выдаёт рекомендацию о необходимости поправиться или похудеть (с указанием, на сколько кг нужно поправиться или похудеть).

Оптимальный вес вычисляется по формуле:

рост (в см) – 100.

Ответ оставил Гость

Программа ниже.

Код:

var

 rost, ves, opt: integer;

begin

  write('Введите рост: ');

 readln(rost);

 opt := rost - 100;

 write('Введите вес: ');

 readln(ves);

 if ves < opt then

   writeln('Вам нужно поправиться на ', opt - ves, ' кг.');

 if ves > opt then

   writeln('Вам нужно похудеть на ', ves - opt, ' кг.');

 if ves = opt then

   writeln('Ваш вес оптимальный');

end.

Не нашел нужный ответ?

Если ответ по предмету Экономика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.


Найти другие ответы