Поделитесь своими знаниями, ответьте на вопрос:
Визначення оптимального асортименту, що максимізує прибуток Вихідні дані: меблева фабрика виготовляє столи, стільці, бюро й книжкові шафи, використовуючи два різних види дощок, причому фабрика має 500 м3. дощок першого виду і 1000 м3 дощок другого. Крім того, задані трудові ресурси в кількості 800 людино-год. В таблиці наведено норми витрат кожного виду ресурсів на виготовлення одиниці виробу і прибуток від реалізації одиниці виду продукції.Потрібно: визначити оптимальний асортимент випуску продукції, що максимізує прибуток. Ресурси Витрати на одиницю продукції Запаси Столи Стільці Бюро Книжкові шафи Дошки першого виду, м3 5 1 9 12 500Дошки другого виду, м3 2 3 4 1 1000Трудові ресурси, людино-год. 3 2 5 10 800Прибуток на один виріб (тис. грн.) 12 5 15 10
program z1;
var
i,j,m,k,z,x,l:integer;
begin
readln(m);
for i:=0 to m do begin z:=1;
if i=0 then z:=1 else begin
x:=i;
while x<>0 do begin
z:=z*4;
x:=x-1;
end; end;
if ((z<m) and (z*4>m)) then writeln(i);
if z=m then writeln(i-1);
end;
end.
program z2;
var
i,j,n,k,z,x,l:integer;
begin
readln(n);
for i:=0 to n do begin z:=1;
if i=0 then z:=1 else begin
x:=i;
while x<>0 do begin
z:=z*2;
x:=x-1;
end; end;
if ((z>n) and (z/2<n)) then writeln(i);
if z=n then writeln(i+1);
end;
end.
program z3;
var
i,j,n,k,z,x,s:integer;
begin
readln(n); s:=0;
for i:=1 to n do begin z:=1;
for j:=i to 2*i do
z:=z*j;
s:=s+z; end;
writeln(s);
end.
время 2 ночи
...думаю пора спать )