Известно, что объем сообщения составляет 3кб.определите мощность алфавита, с которого записано это сообщение, если известно что оно содержит 3072 символа.

3 Кбайта = 3*1024 байт = 3*1024*8 бит
Объем одного символа = 3*1024*8 / 3072 = 8 бит
Мощность алфавита = 2^8 = 256

Я пытаюсь создать объект, который де-факто является аналогом объекта Python list . В моем коде у меня есть следующие классы: object_type , type_type , none_type , bool_type , int_type , float_type , bytes_type , где object_type -абстрактный класс.

Абстрактный класс имеет некоторые виртуальные функции, такие как type_type __type__(void) , bytes_type __name__(void) , bytes_type __repr__(void) , bool_type __bool__(void) , int_type __int__(void) , float_type __float__(void) , bytes_type __bytes__(void) .

Объяснение:

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

№1

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  Writeln('Количество отрицательных значений ',a.Where(t->t<0).Count);
end.

Пример
n= 15
3 39 3 2 43 43 -37 -2 -50 3 -25 15 -7 4 21
Количество отрицательных значений 5

№2

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(m,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var k:=ReadInteger('k=');
  if a.ElementsByRow.Any(t->t>k) then Writeln('Есть')
  else Writeln('Нет')
end.

Пример
Количество строк и столбцов в массиве: 5 8
*** Исходный массив ***
  -9  48 -98 -35 -33 -29  44 -32
 -33 -48 -62  11  45  53  52  90
 -96  -1  68 -21  15 -72 -78 -28
  44  15 -53 -33 -27  89 -60 -49
  28 -73 -99  81  23  -9 -93 -66

k= 92
Нет