Гражданин 1 марта открыл счет в банке, вложив 1000 руб. Через каждый месяц размер вклада увеличивается на 2% от имеющейся суммы. Определить: за какой месяц величина ежемесячного увеличения вклада превысит 30 руб.; через сколько месяцев размер вклада превысит 1200 руб.(Pascal ABC)

const  s0=100000; { первоначальная сумма в копейках }  p=0.02; { величина, равная 1/100 от ежемесячного процента }var  s,sp:longint;  mes:integer;begin  { все расчеты ведем в копейках }  mes:=0; s:=s0;  while sp<=30*100 do    begin mes:=mes+1; sp:=Round(s*p); s:=s+sp end;  Writeln('Месяц ',mes,', сумма процента ',sp/100:0:2,' > 30');  mes:=0; s:=s0;  while s<=1200*100 do begin mes:=mes+1; s:=s+Round(s*p) end;  Writeln('Месяц ',mes,', сумма вклада ',s/100:0:2,      ' > 1200');end.Результат выполнения программы:Месяц 22, сумма процента 30.31 > 30Месяц 10, сумма вклада 1218.98 > 1200