Как через паскаль решать..помогите плизз
Гражданин 1 марта открыл счет в банке, вложив 100000 руб. Через каждый месяц размер вклада увеличивается на 4% от имеющейся суммы. Определить: через сколько месяцев величина ежемесячного увеличения вклада превысит 30 руб
Вот.
var mes,i:int64;
n,sum:real;
begin
readln (n);
sum:=0;
repeat
sum:=sum+n/100*4;
mes:=mes+1;
until sum<>30;
writeln (mes);
end.
Оцени ответ
