Клиент открыл счет в банке 1 марта, вложив 1000 рублей. Каждый месяц начисляется 1% с той суммы, которая оказалась на счете на конец месяца. В каком месяце размер вклада превысит 1200 руб.

const month:array[0..11] of string [15]= ('январь', 'февраль', 'март', 'апрель', 'май', 'июнь',  'июль', 'август', 'сентябрь', 'октябрь', 'ноябрь', 'декабрь'); var s:real; i,k:integer; begin s:=1000; k:=0; while s<=1200 do  begin  s:=s*1.01;  k:=k+1;  end; writeln('k = ',k,' - ',month[k mod 12+2]); end. Результат: k = 19 - октябрь