Городской молочный завод производит молоко, кефир и сметану, расфасованные в бутылки. На производство 1 т молока, кефира и сметаны требуется соответственно 1010, 1010 и 9450 кг молока. При этом затраты рабочего времени при разливе 1 т молока и кефира составляют 0,18 и 0,19 машино-часов. На расфасовке 1 т сметаны заняты специальные автоматы в течение 3,25 ч. Всего для производства молочных изделий завод может использовать 136000 кг молока. Основное оборудование может быть занято в течение 21,4 машино-часов, а автоматы по расфасовке сметаны - в течение 16,25 ч. Прибыль от реализации 1 т молока, кефира и сметаны соответственно составляет 30, 22 и 136 грн. Завод должен ежедневно производить не менее 100 т молока, расфасованного в бутылки. На производство другой продукции нет никаких ограничений. Нужно определить, какую продукцию и в каком количестве нужно ежедневно производить завода, чтобы прибыль от ее реализации был максимален. (Excel)​

Маркер заполнения - это маленький черный квадратик в правом нижнем углу выделенной ячейки. Возле него указатель мыши принимает вид черного крестика, обычно он белый.Если протянуть маркер заполнения левой кнопкой мыши, ячейки, соседние с выделенной, куда протащили маркер, заполнятся такой же информацией (если исходная информация имеет формат даты, то заполнятся последовательностью дат) . Протягивание левой кнопкой используется для копирования формул, которые были в исходной ячейке.При протягивании маркера заполнения правой кнопкой мыши при отпускании клавиши появляется контекстное меню, в котором можно выбрать характер заполнения соседних ячеек.Команда Копировать из контекстного иеню скопирует исходную информацию, Заполнить для числовой заполнит последовательностью чисел.Заполнить только форматы - форматирование исходной ячейки скопируется на выделенныеЗаполнить только значения - скопируется не формула, если она была в исходной, а вычисленное значение.Прогрессия позволяет заполнить ячейки членами арифметической, геометрической или даты прогрессиями.

Var
  n, m, p, k, sum, x: integer;
  s: string;
  c, i: byte;

begin
  write('Число: ');
  read(n);
  m := n;
  k := 0;
  while m <> 0 do
  begin
    p := m mod 10;
    K := K + 1;
    m := m div 10;
  end;
 
  Str(N, s);
  c := 0;
  for i := 1 to Length(s) do
    if s[i] in ['0', '2', '4', '6', '8'] then
      Inc(c);
 
  x := n;
  sum := 0;
  while (x <> 0 ) do
  begin
    sum := sum + (x mod 10);
    x := x div 10;
  end;
 
  writeln('Количество чисел: ', k);
  writeln('Количество четных чисел: ', c);
  writeln('Cумма чисел : ', sum);
end.