Какой у тебя во классы Информатика 15+8 б Сформулируйте задачу оптимального планирования для школьного кондитерского цеха, в котором выпускается три вида продукции: пирожки, пирожные и коржики.
По больше объяснений Следить Отметить нарушение Kirata 2 часа назад
ответы и объяснения
nastahamula489
Nastahamula489Новичок
Знаешь ответ? Добавь его сюда!
adamzalimhanov
AdamzalimhanovХорошист
Шанежки 751
Пирожные 341
Прибыль эквивалентна стоимости 2898 пирожков
Объяснение:
Пусть цех производит 4 вида продукции:
Пирожки (максимально возможно произвести 2000 шт. в день, если ничего больше не производить)
Шанежки (максимально возможно произвести 1500 шт. в день)
Булочки (максимально возможно произвести 1200 шт. в день)
Пирожные (максимально возможно произвести 700 шт. в день).
Школьные Знания.com
Какой у тебя во классы Информатика 15+8 б Сформулируйте задачу оптимального планирования для школьного кондитерского цеха, в котором выпускается три вида продукции: пирожки, пирожные и коржики.
По больше объяснений Следить Отметить нарушение Kirata 2 часа назад
ответы и объяснения
nastahamula489
Nastahamula489Новичок
Знаешь ответ? Добавь его сюда!
adamzalimhanov
AdamzalimhanovХорошист
Шанежки 751
Пирожные 341
Прибыль эквивалентна стоимости 2898 пирожков
Объяснение:
Пусть цех производит 4 вида продукции:
Пирожки (максимально возможно произвести 2000 шт. в день, если ничего больше не производить)
Шанежки (максимально возможно произвести 1500 шт. в день)
Булочки (максимально возможно произвести 1200 шт. в день)
Пирожные (максимально возможно произвести 700 шт. в день).
Соотношение стоимости изделий таково: пирожок/булочка - 2/1 пирожок/шанежка - 1/2 пирожок/пирожное - 1/4.
Емкость склада равна 1100 изделий. Составить оптимальный план выпуска продукции для достижения максимальной выручки.
Var
N,A:integer;
Begin
Write('N = ');Read(N);
A:=0;
While N>0 do
Begin
if (N mod 10) > A then A:= N mod 10;
N:=N div 10;
End;
Write(A)
End.
Var
N,A,B:integer;
C:boolean;
Begin
Write('N = ');Read(N);
A:=-1;
B:=-2;
C:=false;
While N>0 do
Begin
if A=B then C:=true;
if N>0 then
Begin
A:=N mod 10;
N:=N div 10;
End;
if A=B then C:=true;
if N>0 then
Begin
B:=N mod 10;
N:=N div 10;
End;
End;
if A=B then C:=true;
if C then Write('Есть')
else Write('Нет')
End.
Подробнее - на -