Заранее масса подсолнечного масла плотностью 0, 896 кг/дм3, полученного в маслоэкстракционном цехе может изменяться от 5, 73 до 6, 47 т. для хранения масла имеются две одинаковые кубические емкости с длиной ребра 2000 мм. заливка производится последовательно. вначале наполняется первая емкость на 86% объема, а затем, если масло осталось, остаток заливается во вторую. рассчитать для конкретной партии масла сколько емкостей будет использовано и какова высота слоя масла в них.

насколько я понял, множество - это просто все эти числа, только без повторений.

заведем   массив boolen, где будем отмечать, есть ли данное число во множестве.

var

  a : array [1..15, 1..15] of integer;

  b : array [1..30] of boolean;

  i, j, n, m : integer;

begin

  read (n, m);

  for i : = 1 to 30 do b[i] : = false; //зануление начальных значений

  for i : = 1 to n do

    for j : = 1 to m do

      a[i, j] : = i +j; //заполнение массива

  for i : = 1 to n do

    for j : = 1 to m do

      b[a[i, j]] : = true; //формирование множества

  for i : = 1 to n do

  begin

    for j : = 1 to m do

      write (a[i, j], '   ');

    writeln;

  end;

  for i : = 2 to 30 do

    if b[i] then write (i, '   ');

end.

   

мне кажется надо сделать так:                                                                                                                               (225*1024*8) / 14400=128-потребуется модему.