Question

Клиент положил в банк 1 марта 1000 рублей. Ежемесячно вклад увеличивается на 2%.
а) Сколько денег будет через 6 месяцев.
б) В каком месяце сумма вклада превысит 1200.
в) За какой месяц величина ежемесячного увеличения превысит 50 рублей.
Помогите пожалуйста решить задачу на PaskalABC

Answer 1

Program pr; Var i,proc,month:integer;vklad,bonus,total:real; begin write('Введите сумму вклада: '); readln(vklad); write('Процент увеличения вклада: '); readln(proc); write('Кол-во месяцев '); readln(month); total:=vklad; for i:=1 to month do begin writeln('Месяц ',i); bonus:=total/100*proc; writeln('Бонус за месяц: ',bonus:0:2); total:=total+bonus; writeln('Текущий счет: ',total:0:2); writeln(); end; end.