а вы такое решаете?

[feofan4ik]

а вы такое решаете?
a) Для сборки двух видов приборов П1 и П2 применяются три вида микросхем А, В, С. На один прибор П1 затрачивается 1 микросхема А, 2 микросхемы В и 2 микросхемы С. Для прибора П2 эти затраты равны соответственно 0,1 и 3. Запас микросхем А – 35 штук, микросхем В – 85 штук. Сколько приборов каждого типа следует собрать для получения максимального дохода, если доход от реализации одного прибора П1 составляет 8 рублей, от прибора П2 – 5 рублей.

[feofan4ik]

но я не знаю а вдруг прогой выйдет

[BDA]

Сильно топорно, и не уверен, что ищет правильно

uses
  CRT;

var
  a, b, p1, p2, p1d, p2d, max, mp1, mp2, i: integer;

function count(sa: integer; sb: integer; a: integer; b: integer): integer;
begin
  if sa = 0 then
  begin
    count := b div sb;
    exit;
  end;
  if sb = 0 then
  begin
    count := a div sa;
    exit;
  end;
  if a div sa < b div sb then
    count := a div sa
  else
    count := b div sb;
end;

begin
  a := 35;
  b := 85;
  p1d := 8;
  p2d := 5;

  max := 0;
  p1:=count(1,2,a,b);
  p2:=count(0,1,a-p1,b-2*p1);
  
  for i := p2 to count(0, 1, a, b) do
  begin
    p1 := count(1, 2, a, b - i);
    writeln('P1: ',p1,' P2: ',i,' Money: ',i * p2d + p1 * p1d);
    if i * p2d + p1 * p1d > max then
    begin
      max := i * p2d + p1 * p1d;
      mp1 := p1;
      mp2 := i;
    end;
  end;
  
  writeln('result:');
  writeln('P1: ',mp1, ' P2: ', mp2);
  readln;
end.

[Rin]

Ваша задача сильно смахивает на транспортную задачу. Такое решается в Excel. Надстройка "Принятие решений". Соответственно для написания алгоритма ищем алгоритм решения транспортной задачи

[Smitt&Wesson]

Тыц сьда, и будет счастье.