Гражданин 1 марта положил в банк 10000 рублей. ежемесячно на сумму вклада добавляется 2% от общей суммы. через сколько месяцев сумма вклада составит больше 15 тысяч?

0.02 - это 2% в десятичной дроби 1ый месяц 10000*0.02=200 +ещё 10000, которые уже в банке =10200 каждый раз умножаем полученное число +10000 на 0.02 ниже смысл тот же, в общем умножаете и к полученному числу добавляете то число, которое умножали на 0.02 2ой месяц 10200*0.02=204 10404 3ий месяц 10404*0.02=208.08 10612.08 4ый месяц 10612.08*0.02=212.24 10824.32 5ый месяц 10824.32*0.02=216.48 11040.80 6ой месяц 11040.80*0.02=220.81 11261.61 7ой месяц 11261.61*0.02=225.23 11486.84 8ой месяц 11486.84*0.02=229.73 11716.57 9ый месяц 11716.57*0.02=234.33 11950.90 10ый месяц 11950.90*0.02=239.01 12189.91 11ый месяц 12189.91*0.02=243.79 12433.70 12ый месяц 12433.70*0.02=248.67 12682.37 13ый месяц 12682.37*0.02=253.64 12936.01 14ый месяц 12936.01*0.02=258.72 13194.73 15ый месяц 13194.73*0.02=263.89 13458.62 16ый месяц 13458.62*0.02=269.17 13727.79 17ый месяц 13727.79*0.02=274.55 14002.34 18ый месяц 14002.34*0.02=280.04 14282.38 19ый месяц 14282.38*0.02=285.64 14567.02 20ый месяц 14567.02*0.02=291.36 14858.38 21ый месяц 14858.38*0.02=297.16 15155.54 ответ через 21 месяц.

паскаль, одномерный массив

 

var a: array [1..6] of integer; i, max: integer;

begin

for i: =1 to 6 do read(a[i]);

max: =a[1];

for i: =1 to 6 do

if a[i]> max then max: =a[i];

writeln(max); readln; end.

 

256 кбайт = 2^8 * 2^13 = 2^21 бит

2 мбайт = 2 * 2^23 = 2^24 бит

2^21 : 2^18 = 2^3 = 8 сек, потребуется для получения толей первых 256 кбайт

2^24 : 2^15 = 2^9 = 512 сек, потребуется мише чтобы скачать 2 мбайта

8 + 512 = 520 сек потребуется мише для получения информации