Question

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

Answer 1

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