Написать прогу и, , объясните принцип! определить, равна ли сумма первых k цифр дробной части заданного положительного вещественного числа сумме n следующих цифр.
Генети́ческая информа́ция — информация о строении белков, закодированная с последовательности нуклеотидов — генетического кода — в генах (особых функциональных участках молекул ДНК или РНК).
Генетическая информация определяет морфологическое строение, рост, развитие, обмен веществ, психический склад, предрасположенность к заболеваниям и генетические пороки организма. Реализация генетической информации происходит в процессе синтеза белковых молекул с трех типов РНК: информационной (иРНК) (её также называют матричной РНК, мРНК), транспортной (тРНК) и рибосомальной (рРНК). При этом генетическая информация копируется с матрицы ДНК на мРНК в ходе транскрипции, а затем мРНК используется как матрица для синтеза белков в ходе трансляции.
Процесс передачи информации может идти:
•в направлении ДНК → РНК → белок •в направлении РНК → ДНК при обратной транскрипции. Передача генетической информации в направлении от белка к нуклеиновым кислотам, по-видимому, невозможна, в частности, из-за свойства вырожденности генетического кода.
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 Килобайт ( приблизительно)
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Суммы не равны