Гражданин 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