Два сообщения содержат одинаковое количество символов. количество информации в первом тексте в 2, 5 раза меньше, чем во втором. сколько символов содержат алфавиты, с которых записаны сообщения, если известно, что размер каждого алфавита не превышает 32 символов и на каждый символ приходится целое число битов?

Будем считать, что на каждый символ одного и того же сообщения приходится одинаковое число битов. если количество информации в первом тексте в 2,5 раза меньше, чем во втором тексте, а количество символов одинаково, то каждый символ первого текста несёт в 2,5 раза меньше информации, чем символ второго текста. в каждом алфавите не более 32 символов, поэтому на 1 символ приходится не более 5 бит. все варианты: 1, 2, 3, 4, 5. среди вариантов есть только один случай, при котором отношение двух чисел будет равно 2,5, только в том случае, когда символ второго алфавита несёт 5 бит (размер алфавита 2^5 = 32), а символ первого алфавита - 2 бита (размер алфавита 2^2 = 4). ответ. первый алфавит содержит 4 символа, второй алфавит -  32 символа.

Код:

using System;using System.Linq;namespace Mtrx{    static class Program    {        static void Main(string[] args)        {            var matrix1 = new double[][]            {                new [] {1.0, 2},                new [] {3.0, 4}            };                        var matrix2 = new double[][]            {                new [] {1.0, 2},                new [] {3.0, 4}            };                        var A = MMult(matrix1, matrix2);            if (!A.Success)            {                Console.WriteLine(A.Error);                return;            }            Print2DMatrix(A.Data);        }        private static Result<double[][]> MMult(double[][] A, double[][] B) {            if (A[0].Length != B.Length)                return Result<double[][]>.GetError("It's imposable to multiply this matrix because of their dimensions");                        var result = A.Select(                (row, rowIndex) =>                    B[0].Select((_, columnIndex) => B.Select(__ => __[columnIndex])                        .Zip(row, (rowCell, columnCell) => rowCell * columnCell).Sum()                    ).ToArray()            ).ToArray();            return Result<double[][]>.GetResult(result);        }        private static void Print2DMatrix<T>(T[][] matrix)        {            for (var i = 0; i < matrix.Length; ++i)            {                for (var j = 0; j < matrix[i].Length; ++j)                {                    Console.Write(matrix[j][i]);                    Console.Write(" ");                }                Console.WriteLine();            }        }    }    internal class Result<T>    {        public T Data { get; }        public string Error { get; }        public bool Success => Error is null;        public static Result<T> GetError(string error)        {            return new Result<T>(default, error);        }        public static Result<T> GetResult(T result)        {            return new Result<T>(result);        }        private Result(T data, string error = null)        {            Data = data;            Error = error;        }    }}

const

 n=5;

 m=5;

var

 a:array [1..n,1..m] of integer;

 i,j,k,t:integer;

begin

 writeln('Исходная матрица:');

 for i:=1 to n do

 begin

   for j:=1 to m do

   begin

     a[i,j]:=random(8)-4;

     write(a[i,j]:2,' ')

   end;

   writeln

 end;

 for i:=1 to n do

   for j:=1 to m-1 do

     for k:=j+1 to m do

       if a[i,j]>a[i,k] then

       begin

         t:=a[i,j];

         a[i,j]:=a[i,k];

         a[i,k]:=t

       end;

 

 writeln('Полученная матрица:');

 for i:=1 to n do

 begin

   for j:=1 to m do

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

   writeln

 end;

end.