Написать прогу и, , объясните принцип! определить, равна ли сумма первых k цифр дробной части заданного положительного вещественного числа сумме n следующих цифр.

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018Внимание! Если программа не работает, обновите версию!

begin

 var x := Frac(Abs(ReadReal('Введите исходное число:'))).ToString;

 var k := ReadInteger('Введите значение k:');

 var (s1, s2) := (x[3:3 + k], x[3 + k:3 + 2 * k]);

 if s1.Select(t -> t.ToDigit).Sum = s2.Select(t -> t.ToDigit).Sum then

   Println('Суммы равны')

 else

   Println('Суммы не равны')

end.

Введите исходное число: -542.6327288323Введите значение k: 3Суммы не равны

Генети́ческая информа́ция — информация о строении белков, закодированная с последовательности нуклеотидов — генетического кода — в генах (особых функциональных участках молекул ДНК или РНК).

Генетическая информация определяет морфологическое строение, рост, развитие, обмен веществ, психический склад, предрасположенность к заболеваниям и генетические пороки организма. Реализация генетической информации происходит в процессе синтеза белковых молекул с трех типов РНК: информационной (иРНК) (её также называют матричной РНК, мРНК), транспортной (тРНК) и рибосомальной (рРНК). При этом генетическая информация копируется с матрицы ДНК на мРНК в ходе транскрипции, а затем мРНК используется как матрица для синтеза белков в ходе трансляции.

Процесс передачи информации может идти:

•в направлении ДНК → РНК → белок
•в направлении РНК → ДНК при обратной транскрипции.
Передача генетической информации в направлении от белка к нуклеиновым кислотам, по-видимому, невозможна, в частности, из-за свойства вырожденности генетического кода.

1) Для начала подсчитаем общее кол-во символов.
    350 * 60 * 18 = 378000 символов
   Теперь подсчитаем информационный вес одного символа по формуле  N = 2^i.
    128 = 2^i
    i = 7 бит
  Теперь найдем информационный вес всех символов.
   378000 * 7 = 2646000 бит = 323 Кбайт (приблизительно) 

2) Найдем информационный вес 1 символа первого алфавита.
   N = 2^i
   512 = 2^i
   i = 9 бит
  Найдем информационный вес 1 символа второго алфавита.
  N = 2^i
  64 = 2^i
  i = 6 бит 
  Найдем количество символов первого ( и 2 ) алфавита.
  640Кбайт = 5242880 бит 
  5242880 / 9 = 58320 символов 
  Теперь найдем информационный объем второго алфавита.
  58320 * 6 = 349920 бит = 43 Килобайт ( приблизительно)

3) 1Кбайт = 8192 бит 
    8192 / 1024 = 2^13 / 2^10 = 2^3 = 8 бит