Начиная с января на счет клиента в начале месяца переводится Z руб. (заработная плата) и снимается К руб. (коммунальные услуги); в конце месяца производится начисление р % от накопленной суммы. Последовательно месяц за месяцем суммируя начисляемые проценты, определить их сумму за год. Вычисления досрочно прекратить, если в каком-либо месяце эта сумма превысит значение А.

var z,k,p,s,sp,a:real; n:integer;beginreadln(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 15000n = 1213093.25