1 год Еремин Август Фомин июнь Дементьев июль Борисов Май 2 год Еремин май Фомин июль Дементьев август Борисов июнь 3 год Еремин июнь Фомин август Дементьев май Борисов Июль 4 год Еремин июнь Фомин июль Дементьев май Борисов август
Не особо знаю паскаль, так что дабы не накосячить с синтаксисом, покажу на примере. Тут всё просто - тебе лишь нужен цикл 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, чтобы было нагляднее.
При измерении объемов информации есть определенные нюансы отличающие это измерение от привычных литров и килограммов. Так, чтобы зашифровать символ в популярной кодировке потребуется 8 сигналов (каждый из которых 1 или 0). Отдельно один этот сигнал будет называться бит. А одна такая последовательность, кодирующая один символ будет называться байт. Значит в 1 байте содержится 8 бит. Далее в каждой большей единице содержится 1024 меньшие единицы. Так, в 1 кб содержится 1024 байт= 8192 бит в 1 мб содержится 1024 кб = 1048576 байт = 8388608 бит в 1 гб содержится 1024 мб = 1048576 кб = 1073741824 байт = 8589934592 бит
Еремин Август
Фомин июнь
Дементьев июль
Борисов Май
2 год
Еремин май
Фомин июль
Дементьев август
Борисов июнь
3 год
Еремин июнь
Фомин август
Дементьев май
Борисов Июль
4 год
Еремин июнь
Фомин июль
Дементьев май
Борисов август