Определите, какое количество каждого из видов продукции нужно выпускать завода, что бы прибыль от ее реализации была максимальной
Фирма дополнительно освоила выпуск продукции четырех ассортимента. Для выпуска этой продукции требуется сырье четырех видов, которую завод может ежемесячно выделять в ограниченном количестве. Количество сырья каждого аду, необходимой для изготовления каждого вида продукции, цена каждого вида продукции, а также ограниченное ежемесячное поступление нужного сырья представлены в таблице 12.2.
// Внимание! Если программа не работает, обновите версию!
function ДробьНесократима(Чис,Знам:integer):boolean;
begin
while Знам<>0 do begin Чис:=Чис mod Знам; Swap(Чис,Знам) end;
Result:=Чис=1
end;
begin
for var Знаменатель:=2 to 7 do
for var Числитель:=1 to Знаменатель-1 do
if ДробьНесократима(Числитель,Знаменатель) then
Write(Числитель,'/',Знаменатель,' ');
Writeln
end.
Результат
1/2 1/3 2/3 1/4 3/4 1/5 2/5 3/5 4/5 1/6 5/6 1/7 2/7 3/7 4/7 5/7 6/7