Написать программу для решения следующей задачи: учебным заведением был приобретен стол за S руб. Его амортизация составляет 12% в год. Определить, сколько он будет стоить через N лет. (Pascal) Пример: Введите стоимость стола: 35000 Введите кол-во лет: 5 Стоимость стола на конец 1 года: 30800.000 рублей Стоимость стола на конец 2 года: 27104.000 рублей Стоимость стола на конец 3 года: 23851.520 рублей Стоимость стола на конец 4 года: 20989.338 рублей Стоимость стола на конец 5 года: 18470.617 рублей

Question

Николай Щербаков

Информатика

29 марта, 09:33

Написать программу для решения следующей задачи: учебным заведением был приобретен стол за S руб. Его амортизация составляет 12% в год. Определить, сколько он будет стоить через N лет. (Pascal) Пример: Введите стоимость стола: 35000 Введите кол-во лет: 5 Стоимость стола на конец 1 года: 30800.000 рублей Стоимость стола на конец 2 года: 27104.000 рублей Стоимость стола на конец 3 года: 23851.520 рублей Стоимость стола на конец 4 года: 20989.338 рублей Стоимость стола на конец 5 года: 18470.617 рублей

+1

Ответы (1)

Знаешь ответ на этот вопрос?

Тобик · Answer 1

var stoimost, i : integer;

Stoimoststola, a : real;

begin

writeln ('Введите стоимость стола:');

readln (Stoimoststola);

writeln ('Введите количество лет:');

readln (years);

s:=0;

for i:=1 to years do

begin

a:=Stoimoststola*0.12;

a:=Stoimoststola-a;

Stoimoststola:=a;

Writeln ('Стоимость стола на конец ', i, ' года ', a, 'рублей');

end;

end.