1. "Молекулы состоят из атомов!" - 27 символов.
27*16 = 432 бита = 54 байта.
2. "Я к вам пишу- чего же боле? Что я могу еще сказать?" - 51 символ.
51*16 = 816 бит = 102 байта.
3. "Любишь кататься- люби и саночки возить!" - 39 символов.
39*32 = 1248 бит = 156 байт.
4. "Семь раз отмерь, один раз отрежь!" - 33 символа.
33*5 = 165 байт (1320 бит).
В общем виде: пусть n - количество символов в тексте, i - количество бит на символ, тогда объём V будет равен V = ni.
Также следует помнить, что 1 байт - это 8 бит.
Объяснение:
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, чтобы было нагляднее.