Начиная с января на счет клиента в начале месяца переводится z руб. (заработная плата) и снимается к руб. (коммунальные услуги); в конце месяца производится начисление р % от накопленной суммы. последовательно месяц за месяцем суммируя начисляемые проценты, определить их сумму за год. вычисления прекратить, если в каком-либо месяце эта сумма превысит значение а.
begin
readln(z,k,p,a);
s:=0; sp:=0; n:=0;
while (n<12)and(sp<a) do
begin
n:=n+1;
s:=s+z-k;
sp:=sp+s*p/100;
s:=s+sp;
end;
writeln('n = ',n);
writeln(sp:4:2);
end.
Пример:
35000 3500 0.5 15000
n = 12
13093.25