fizik24
13.05.2021 10:41

Запишіть наведені формули за правилами мови Object Pascal:
a) ​


Запишіть наведені формули за правилами мови Object Pascal:a) ​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Kagane
09.01.2022 19:33

Шанежки 751

Пирожные 341

Прибыль эквивалентна стоимости 2898 пирожков

Объяснение:

Пусть цех производит 4 вида продукции:

Пирожки (максимально возможно произвести 2000 шт. в день, если ничего больше не производить)

Шанежки (максимально возможно произвести 1500 шт. в день)

Булочки (максимально возможно произвести 1200 шт. в день)  

Пирожные (максимально возможно произвести 700 шт. в день).

Соотношение стоимости изделий таково: пирожок/булочка - 2/1 пирожок/шанежка - 1/2 пирожок/пирожное - 1/4.

Емкость склада равна 1100 изделий. Составить оптимальный план выпуска продукции для достижения максимальной выручки.

0,0(0 оценок)
Ответ:
timofeevaanyut
08.05.2023 17:56

а) var a:array[1..3] of integer;

          s, i: integer;

  begin

begin

  writeln('Vvedite chislo', i - );

  readln(a[i]);

end;

  s:=0

  for i:=1 to 3 do

  begin

  if a[i] mod 2=0 then

  s:=s+a[i]

  end;

  writeln(s);

  readln();

end.

б) var a:array[1..3] of integer;

          s, i: integer;

  begin

  for i:=1 to 3 do

begin

  writeln('Vvedite chislo', i - );

  readln(a[i]);

end;

  s:=0

  for i:=1 to 3 do

  begin

  if a[i]<0 then

  write(a[i], ' ')

  end;

  readln();

end.

в) var a:array[1..3] of integer;

          s, i: integer;

  begin

  for i:=1 to 3 do

begin

  writeln('Vvedite chislo', i - );

  readln(a[i]);

end;

  s:=1

  for i:=1 to 3 do

  begin

  if a[i] mod 3=0 then

  s:=a[i]*a[i];

  end;

  writeln(s);

  readln();

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота