Помогите пожалуйста, СРОЧНО, завтра уже сдавать Составить программу, которая вычесляет оптимальный вес пользователя, сравнивает его с реальным и выдает рекомендацию о необходимости поправиться или похудеть. Оптимальный вес вычесляется по формуле рост (в см) - 100. Ниже представлен рекомендуемый вид экрана во время работы программы. Введите рост (см) 170 Введите вес (кг) 68 Вам надо поправится на 2.00 кг
в чем сложность?
точнее что у тебя вызвало затруднения в самостоятельном написании этой проги?
Var sm, kg:integer; begin write('Введите рост (см): '); readln(sm); write('Введите вес (кг): '); readln(kg); if (sm-100)write('Вам нужно похудеть на ',kg-(sm-100),' кг') else write('Вам нужно поправиться на ',sm-100-kg,' кг'); end.
Ему и поправиться нужно и похудеть )
Почему ошибочное?
Все, исправил
Прошу извинения за предоставленные неудобства