50 ❤️музыкальный фрагмент был записан в формате моно, оцифрован и сохранён в виде файла с использованием сжатия данных. при этом производилось сжатие данных, объем сжатого фрагмента стал равен 40% от первоначальной записи. затем тот же музыкальный фрагмент был записан повторно в формате стерео (двухканальная запись) и оцифрован с разрешением в 8 раз выше и частотой дискретизации в 2 раз выше, чем в первый раз. при этом производилось сжатие данных, объем сжатого фрагмента стал равен 60% от повторной записи. во сколько раз размер повторной записи будет больше изначальной?

А) Объёмы тождественных понятий совпадают. Иначе, из тождественных понятий мы получаем одно и то же знание фиксированного объёма
Пример: "Столица России" тождественно "Город Москва".
Б) Объемы пересекающихся понятий совпадают частично, т.е. у них есть некая общая часть. Пример: "Школьные предметы" и "Информатика". Информатика - один из школьных предметов, но также информатика - предмет, включающий материал, который в школах не изучается.
В) Если объем одного понятия полностью содержится в объеме другого, то первое понятие называется подчиненным второму, подчиняющему понятию.
Например, в отношении понятий "Река" и "Волга", подчиняющим будет "Река", а подчиненным - "Волга", как одна из рек.
Г) Соподчиненными называются два понятия, исключающие друг-друга и подчиненные одноми и тому же подчиняющему понятию. Например: "Математика" и "Русский язык" являются соподчиненными понятию ""Школьный предмет".

Задача 1.
var
  f:Text;
  n,nmax,nmin:integer;
begin
  Assign(f,'input.txt'); Reset(f);
  nmax:=-32786; nmin:=32767; {границы представления integer}
  while not Eof(f) do begin
    Readln(f,n);
    if (n>0) and (n mod 2=0) then
      if nmax<n then nmax:=n
      else
        if nmin>n then nmin:=n
  end;
  Close(f);
  Assign(f,'output.txt'); Rewrite(f);
  Writeln(f,nmin,' ',nmax);
  Close(f)
end.

Задача 2.
const
  m=100; { максимальное количество чисел в файле }
var
  f:Text;
  i,j,n,k:integer;
  a:array[1..m] of integer;
begin
  { читаем данные из файла в массив }
  Assign(f,'input.txt'); Reset(f);
  i:=0;
  while not Eof(f) do begin Inc(i); Readln(f,a[i]) end;
  Close(f);
  n:=i;
  { сортируем массив по возрастанию методом пузырька }
  for i := 1 to n-1 do
    for j := 1 to n-i do
      if a[j] > a[j+1] then
      begin k := a[j]; a[j] := a[j+1]; a[j+1] := k end;
  { заполняем файл из массива }
  Assign(f,'output.txt'); Rewrite(f);
  for i:=1 to n do Writeln(f,a[i]);
  Close(f)
end.

Вложение: пример файла input.txt