Гражданин 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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
