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.
Отметь решение как лучшее)
Поделитесь своими знаниями, ответьте на вопрос:
юра.wav
vopros.wav
book.mp3
группа2 (видео файлы):
зайка.avi
diego.mp4
группа3 (текстовые файлы):
dog.txt
musik.txt
группа4 (исполняемые файлы приложений):
box.exe
группа5 (файлы расширений программного пакета Norton commander):
boy.ext
ovre.ext
группа6 (файлы изображений):
лето.bmp
cat.jpg
game.bmp