Определить предполагаемый доход предприятия во 2,3 .... 2N-й годы его существования - Pascal ABC

Формулировка задачи:

Доход предприятия в первый год его существования составил D млн рублей По прогнозу его доход будет расти N лет на В млн рублей ежегодно а затем ежегодно уменьшаться на р % Определить предполагаемый доход предприятия во 2,3 .... 2N-й годы его существования

Код к задаче: «Определить предполагаемый доход предприятия во 2,3 .... 2N-й годы его существования - Pascal ABC»

textual
var n,i:integer;
    d,b,p:real;
begin
write('n=');
readln(n);
write('d=');
readln(d);
write('b=');
readln(b);
write('p=');
readln(p);
writeln('Доход предприятия во 2-',2*n,' годы');
for i:=1 to n do
 begin
  d:=d+b;
  writeln(i,' = ',d:0:2);
 end;
for i:=n+1 to 2*n do
 begin
  d:=d*(1-p/100);
  writeln(i,' = ',d:0:2);
 end;
end.

9   голосов, оценка 4.111 из 5


СОХРАНИТЬ ССЫЛКУ