Требуется загрузить теплоход апельсинами и лимонами так, чтобы стоимость груза была максимальной. При этом известно, что объем грузового отсека теплохода составляет 1000 м3; картонные коробки, в которых перевозятся апельсины и лимоны, имеют стандартные размеры: 50´50´40 см3; стоимость одной коробки с апельсинами равна $45; с лимонами - $60. Потребитель данной продукции заинтересован, чтобы апельсинов по сравнению с лимонами было доставлено больше, по крайней мере, в 1,5 раза.

program uva;begin write(1000/((50*50*40)/1000000)/2.5, "лимонов и "1000/((50*50*40)/1000000)/2.5*1.5 " апельсинов" );//50*50*40 ищется объём одной коробки, /1000000 переводится в метры, //1000/((50*50*40)/1000000) ищется количество коробок. нам нужно засунуть в // коробки как можно больше лимонов, т.к. они дороже. но их максимальное //количество соотносится с апельсинами как 1:1,5. Всего частей 1+1,5=2,5//лимоны отсюда одна часть, значит делим все коробки на количество //частей и получаем количество лимонов. а количество апельсинов просто //умножаем количество лимонов на 1,5end.