Начиная с января на счет клиента в начале месяца переводится Z руб. (заработная плата) и снимается К руб. (коммунальные услуги); в конце месяца производится начисление р % от накопленной суммы. Последовательно месяц за месяцем суммируя начисляемые проценты, определить их сумму за год. Вычисления досрочно прекратить, если в каком-либо месяце эта сумма превысит значение А.
Var z,k,p,s,sp,a:real; n:integer; begin readln(z,k,p,a); s:=0; sp:=0; n:=0; while (n<12)and(sp<a) do<br> 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