var
x: real;
cost: real; //стоимость капитала
i: integer;
begin
cost: = 20; //начальная стоимость равна 20
writeln('введите ежегодный прирост в процентах');
readln(x); //вводим ежегодный прирост в процентах
for i: = 1626 to 2012 do {каждый год стоимость капитала увеличивается на стоимость капитала * х / 100}
cost: = cost + cost * (x / 100);
writeln('стоимость капитала составляла бы в этом году: ', cost : 0 : 5, ' $'); {выводим стоимость капитала с округлением до 5 знаков после запятой}
end.
отметь решение как лучшее)
Поделитесь своими знаниями, ответьте на вопрос: