Составьте программу к : "сумма 10000 рублей положена в сберегательный банк, при этом прирост составляет 5% годовых. составьте алгоритм, определяющий, через какой промежуток времени первоначальная сумма увеличится в два раза."

Начало s_{1}=10000; k=1,05; s_{2}=s_{1}; t=0,если не   s_{2} > = 2*s_{1}, тогда   t++;     s_{2} = k*s_{2}; вернуться к условию, иначе вывод t конец 

Pascal var a,x,l: real; begin a: =10000; x: =10000/100*5; l: =0; while a< =20000 do begin a: =x+a; l: =l+1; end; write(l,' год'); end.

Cосуды 5 и 7 - пусты (0,0) (5,0)   наливаем в 5-ти литровый (0,5) переливаем из 5 в 7-ми литровый (5,5)   наливаем из 12-ти литрового   в 5-ти литровый (3,7) доливаем 7л из 5-ти литрового (3,0)   из 7-ми литрового выливаем в 12-ти (0,3)   из 5-ти в 7-ми (5,3)   наливаем из 12-ти в 5-ти (1,7)   доливаем 4л из 5-ти в 7-ми (1,0)   из 7-ми переливаем в 12-ти (0,1)   из 5-ти в 7-ми (5,1)   5-ти наполняем из 12-ти (0,6)   из 5-ти переливаем в 7-ми;   в 7-ми литровом 6 и в 12-ти литровом осталось 6

Из 12 --> в 7л, будет в 5-ти литровом  0л, в 7-ми 7л (0,7)   в 5-ти л 0, в 7л - семь (5,2)   из 7л в  5л (0,2)     из 5 л в     12л (2,0)     из   7   в     5 (2,7)     из 12 в 7 (5,4)     из 7 в 5 (0,4)     из 5 в 12 (4,0)     из 7 в 5 (4,7)     из 12 в 7 (5,6)     из 7 в 5 (0,6)     из 5 в 12       осталось в 7-ми литровом 6 и в 12-ти л тоже 6