Начиная с января на счет клиента в начале месяца переводится Z руб. (заработная плата) и снимается К руб. (коммунальные услуги); в конце месяца производится начисление р % от накопленной суммы. Последовательно месяц за месяцем суммируя начисляемые проценты, определить их сумму за год. Вычисления досрочно прекратить, если в каком-либо месяце эта сумма превысит значение А.
Ответы
Ответ дал:
2
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
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
Вас заинтересует
5 месяцев назад
5 месяцев назад
1 год назад
1 год назад