Считая, что каждый символ кодируется одним байтом, определите чему равен информационный объем сообщения: "Эта пища полезная, в ней много витаминов" *

тут

Объяснение:

33

отв 16.5

жежелнлещедьететплете

Объяснение:

щещщещкз30309384 3з94щкокш3зщ4ще ещещезк0зуш3г3нкошешелеоешк

Не особо знаю паскаль, так что дабы не накосячить с синтаксисом, покажу на примере. тут всё просто - тебе лишь нужен цикл for и расчет процентов. for i = 1 to 100 percents = fix(x * p / 100) ' здесь у нас есть переменная percents, которой присваиваются округленные функцией fix проценты (насколько я знаю, в паскале аналогичная функция называется round) x = x + percents 'тут всё понятно - переменной x присваивается она сама и годовые проценты по вкладу if x > = y then 'проверяем, не равен или не превысил  ли наш вклад ожидаемую сумму print i 'в цикле for можно не заморачиваться с отслеживанием лет, переменная i сама подсчитает количество итераций-лет end 'завершаем программу end if next i ' конец цикла можно ещё чисто для себя добавить в условие вывод переменной x, чтобы было нагляднее.