найти меры длины 6м25см+17км8см

написать программу которая вычисляет оптимальный вес пользователя сравнивая его с реальными выдаёт рекомендации о необходимости поправиться или похудеть.по формуле рост минус 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.

Помогите пожалуйста решить!)))) В равнобедренной трапеции большее основание равно 44м, боковая сторона 17м, диагональ 39м. Найти площадь трапеции?

Поможіть будь ласка...Потрібно скласти діалог між продівцем квіткового магазину і хлопчиком який хоче купити букут квітів для мами...Для того хто напише обіцяю 40 грн. на мобільний...я є вконтакті...шукайте...обіцяю передам 40 грн

Решите уравнение 16x^2+8x+1=0