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

program deposit;

var p, s: real;

n:integer;

begin

p:=0; //величина прибавки

s:=1000; //первоначальная сумма

n:=0; //число месяцев

while p<=30 do / /пока прибавка меньше 30 руб.

begin

p:=s*0.02; / /величина месячной прибавки

s:=s+p; / / прошлая сумма плюс прибавка за текущий месяц

n:=n+1; //число месяцев

end;

writeln ('Ежемесячное увеличение вклада превысит 30 руб через ', n, ' месяцев');

n:=0; / /обнуление счетчика месяцев

s:=1000; //восстановление значения первоначального взноса

while s<=1200 do

begin

p:=s*0.02; //Величина месячной прибавки

s:=s+p; //прошлая сумма плюс прибавка за текущий месяц

n:=n+1; //число месяцев

end;

writeln ('Величина вклада превысит 1200 руб через ', n,' месяцев');

end.