Question

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

Answer 1

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
 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