Одна кодировочная таблица содержит 1024 символа. для кодирования символа из второй таблицы требуется на 1 бит меньше, чем для кодирования символа из первой таблицы. определите, сколько символов включено во вторую кодировочную таблицу

зависит от того, сколько бит весит 1 символ из первой таблицы

обще решение:  

пусть х   бит - вес симола в 1 таблице, тогда вес всей первой таблицы равен 1024*х бит

из условия вес символа в2 таблице равен (х-1) бит , значит весь все 2 таблицы равен

1024*х-1024 бит

разница веса двух табилц равна 1024 бит, так как вес одного сивола в первой таблице равен (х-1), то в таблице 2 кол-во символом равно 1024 + 1024/(х-1)

 

print("Введіть вагу ручки")

pen = input()

print("Введіть вагу олівця")

pencil = input()

print("Введіть вагу зошита")

copybook = input()

if pen > pencil and pencil > copybook:

   print("Ручка -", pen, "| олівець -", pencil, "| зошит -", copybook)

elif pen > pencil and copybook > pencil:

   print("Ручка -", pen, "| зошит -", copybook, "| олівець -", pencil)

elif pencil > copybook and copybook > pen:

   print("Олівець -", pencil, "| зошит -", copybook, "| ручка -", pen)

elif pencil > pen and pen > copybook:

   print("Олівець -", pencil, "| ручка -", pen, "| зошит -", copybook)

elif copybook > pen and pen > pencil:

   print("Зошит -", copybook, "| ручка -", pen, "Олівець -", pencil)

else:

   print("Зошит -", copybook, "| олівець -", pencil, "| Ручка -", pen)

const Sz = 50; // Размер массива

var  

 a: array [1..Sz] of integer;

 size: integer; // Количество элементов в массиве

 i: integer;

begin

 //Заполнение случайными числами

 size := 20;

 for i:=1 to size do

   a[i] := Random(100);

 writeln('Элементы массива: ');

 for i:=1 to size do

   write(a[i],' ');

 //Находим числа кратные 3 и 5

 writeln('Номера элементов кратных 3-м: ');

 for i:=1 to size do

   if (a[i] mod 3) = 0 then

   write(a[i],' ');

 writeln('Номера элементов кратные 5-ти: ');

 for i:=1 to size do

   if (a[i] mod 5) = 0 then

   write(a[i],' ');

end.