Начиная с января на счет клиента в начале месяца переводится Z

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

Задать свой вопрос
1 ответ
Var z,k,p,s,sp,a:real; n:integer;
begin
readln(z,k,p,a);
s:=0; sp:=0; n:=0;
while (nlt;12)and(splt;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
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт