5. Два треугольника представлены длинами своих сторон x, y и z. Определить, площадь какого из них больше. Создать функцию HeronFormula для вычисления площади треугольника по длинам его сторон. Для решения задачи использовать формулу Герона. Проверка: Если стороны первого треугольника равны 3, 4 и 5 см, а второго – 6, 7 и 8, то результатом будет S1 < S2, т.к. S1 = 6, а S2 = 20.33. Если стороны первого и второго треугольников равны 3, 4 и 5 см, то результатом будет S1 = S2, т.к. S1 = S2 = 6. Если стороны первого треугольника равны 6, 7 и 8 см, а второго – 3, 4 и 5, то результатом будет S1 > S2, т.к. S1 = 20.33, а S2 = 6.

количество цветов в палитре определяется формулой хартли:

n=2^i (где n - количество цветов,   i - "вес" 1 px в битах).

1. найдем количество пикселей в изображении: 256*256=2^8 * 2^8 = 2^16 px

2. определим "вес" всех рх, переведя кб в биты: 8*2^13 (бит) = 2^3 * 2^13 = 2^16 (бит)

3. разделим "вес" всего изображения на количество рх (то есть найдем "вес" 1 рх в битах): 1 рх = 2^16 / 2^16 = 1 бит

4. следовательно (см. начало), количество цветов n=2^1=2 (т.е. изображение двухцветное, скорее всего - ч/б.

// PascalABC.NET 3.3, сборка 1633 от 10.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
  Writeln('*** Матрица A ***');
  var a:=MatrRandom(m,n,10,99); a.Println(3);
  var b:=new integer[m,n];
  var c:=new integer[m,n];
  for var i:=0 to m-1 do
    for var j:=0 to n-1 do
      (b[i,j],c[i,j]):=(a[i,j] div 10,a[i,j] mod 10);
  Writeln('*** Матрица  B ***'); b.Println(3);  
  Writeln('*** Матрица  C ***'); c.Println(3);
  Writeln(3*n*'-');
  Writeln('Количество нулевых элементов в С: ',
    c.ElementsByRow.Where(t->t=0).Count);
  var (sb,sc):=(b.ElementsByRow.Sum,c.ElementsByRow.Sum);
  Writeln('Сумма всех элементов матрицы B: ',sb);
  Writeln('Сумма всех элементов матрицы C: ',sc);
  if sb>sc then Writeln('Сумма элементов матрицы B больше')
  else
    if sc>sb then Writeln('Сумма элементов матрицы C больше')
    else Writeln('Суммы элементов матриц B и С равны')
end.