Информатика! хэлп! пусть цех производит 4 вида продукции: пирожки (максимально возможно произвести 2000 шт. в день, если ничего больше не производить)шанежки (максимально возможно произвести 1600 шт. в день)булочки (максимально возможно произвести 1000 шт. в день) пирожные (максимально возможно произвести 500 шт. в день).соотношение стоимости изделий таково: пирожок/булочка - 2/1 пирожок/шанежка - 1/2 пирожок/пирожное - 4/1.емкость склада равна 1100 изделий. рабочий день - 8 часовсоставить оптимальный план выпуска продукции для достижения максимальной выручки.нужно подробное !

👇

Увидеть ответ

Ответ:

Emma190

01.01.2022

Наименование Макс. кол-во (шт) Цена, ед

Пирожки 2000 2

Шанежки 1500 4

Булочки 1200 1

Пирожное 700 8

Изделия

Наименование Количество

Пирожки 0

Шанежки 400

Булочки 0

Пирожное 700

1100 1100 склад

Максимальная выручка цеха 7200

4,6(15 оценок)

Открыть все ответы

Ответ:

strakh1991

01.01.2022

Const
nn=50;

type
data = record
    number : 1..31;
    month : 1..12;
    year : 1901..1997
end;

var
d:array[1..nn] of data;
i,n,k:integer;
s,s1,s2,s3:string;
begin
Write('Количество дат (1..50)-> '); Read(n);
Writeln('Введите через пробел день, месяц, год: ');
for i:=1 to n do Read(d[i].number,d[i].month,d[i].year);
{ a }
Write('Самый ранний из годов: ');
k:=d[1].year;
for i:=2 to n do
    if d[i].year<k then k:=d[i].year;
Writeln(k);
{ б }
Writeln('Все весенние даты');
for i:=1 to n do
    if d[i].month in [3..5] then
      Write(d[i].number,'.',d[i].month,'.',d[i].year,' ');
Writeln;
{ в }
Write('Cамая поздняя дата: ');
Str(d[1].year,s1); Str(d[1].month,s2); Str(d[1].number,s3);
if Length(s2)=1 then s2:='0'+s2;
if Length(s3)=1 then s3:='0'+s3;
s:=s1+s2+s3;
for i:=2 to n do
begin
    Str(d[i].year,s1); Str(d[i].month,s2); Str(d[i].number,s3);
    if Length(s2)=1 then s2:='0'+s2;
    if Length(s3)=1 then s3:='0'+s3;
    if s<s1+s2+s3 then s:=s1+s2+s3
end;
Writeln(Copy(s,7,2)+'.'+Copy(s,5,2)+'.'+Copy(s,1,4))
end.

Тестовое решение:
Количество дат (1..50)-> 6
Введите через пробел день, месяц, год:
18 4 1950
16 5 1968
5 8 1970
3 9 1968
11 6 1964
16 12 1967
Самый ранний из годов: 1950
Все весенние даты
18.4.1950 16.5.1968
Cамая поздняя дата: 05.08.1970

4,7(86 оценок)

Ответ:

mashenkalarchenko

01.01.2022

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var n:=ReadInteger('Введите четырехзначное число');
Writeln('В числе');
Writeln(n div 1000,' - тысяч');
Writeln((n div 100) mod 10,' - сотен');
Writeln((n mod 100) div 10,' - десятков');
Writeln(n mod 10,' - единиц')
end.

Тестовое решение:
Введите четырехзначное число 4072
В числе
4 - тысяч
0 - сотен
7 - десятков
2 - единиц

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var n:=ReadInteger('Введите трехзначное число');
var s:=n div 100;
var d:=(n div 10) mod 10;
var e:=n mod 10;
Writeln('Sum=',s+d+e);
Writeln(e,d,s);
Writeln('В числе');
Writeln(e,' - сотен');
Writeln(d,' - десятков');
Writeln(s,' - единиц')
end.

Тестовое решение:
Введите трехзначное число 492
Sum=15
294
В числе
2 - сотен
9 - десятков
4 - единиц

4,4(48 оценок)

Это интересно:

Компьютеры-и-электроника

09.04.2021

Как блокировать доступ к YouTube для детей и сотрудников...

Компьютеры-и-электроника

27.01.2020

Изучаем, как создавать формы в HTML: полное руководство...

Хобби-и-рукоделие

14.04.2021

Завязывание скользящих узлов на ожерелье: профессиональный подход...

Образование-и-коммуникации