Написать формулу для excel. : торговый склад производит  уценку  хранящейся продукции. если продукция хранится на складе дольше 10 месяцев, то она уценивается в 2 раза, а если срок хранения превышает 6 месяцев, но не достигает 10 месяцев, то в 1,5 раза. получить  ведомость  уценки товара, которая должна включать следующую информацию: наименование товара, срок хранения, цена товара до уценки, цена товара после уценки.

1. в 1902 году

2. считывание изображения и его конвертирование в цифровой формат

3. область сканирования, оптическое разрешение, тип матрицы сканера

4. Epson, canon, hp, Xerox

5. В результате преобразования света получается электрический сигнал, содержащий информацию об активности цвета в исходной точке сканируемого изображения. После оцифровки аналогового сигнала в АЦП цифровой сигнал через аппаратный интерфейс сканера идет в компьютер, где его получает и анализирует программа для работы со сканером. После окончания одного такого цикла (освещение оригинала — получение сигнала — преобразование сигнала — получение его программой) источник света  и приемник светового отражения перемещается относительно оригинала.

6. Сканеры в основном используются при переводе бумажных носителей в электронные. Вместе с хэш-функциями, которыми заверяют документы нотариусы, используются в делопроизводствах. Ручные сканеры используются в супермаркетах для считывания штрих-кодов. Перспективы развития у них низкие, разве что в уменьшении размеров, т.к. на современном уровне сканеры считывают изображения и электронный вид точно такой же, а после обработки даже лучше, как и у бумажного оригинала.

Const
  n=10;
var
  a:array[1..n] of integer;
  i,_start,_end, startInd, endInd:integer;
begin
  Randomize;
  Write('Исходный массив: ');
  _start:=-1; _end:=-1;
  startInd:=-1; endInd:=-1;
 
  for i:=1 to n do
  begin
    a[i]:=random (0,100);
    Write(a[i],' ');
  end;
  Writeln;

  for i:=2 to n do
  begin
    if a[i]>a[i-1] then
      if _start > -1 then _end := i else
         begin
         _start := i-1;
         _end := i;
         end
    else
      begin
      
      if (_start > -1) and ((endInd - startInd) < (_end - _start)) then
        begin
         startInd := _start;
         endInd := _end;
        end;
        
      _start := -1;
      _end := -1;
      end;
  end;
 
  if startInd > -1 then
  begin
    Writeln('Длина диапазона: ', (endInd-startInd+1));
    Write('Значения из диапазона: ');
    for i:=startInd to endInd do Write(a[i],' ');
  end;

end.