Написать программу для решения следующей задачи: учебным заведением был приобретен стол за S руб. Его амортизация составляет 12% в год. Определить,

сколько он будет стоить через N лет. (Pascal)

Пример:

Введите стоимость стола: 35000

Введите кол-во лет: 5

Стоимость стола на конец 1 года: 30800.000 рублей

Стоимость стола на конец 2 года: 27104.000 рублей

Стоимость стола на конец 3 года: 23851.520 рублей

Стоимость стола на конец 4 года: 20989.338 рублей

Стоимость стола на конец 5 года: 18470.617 рублей

Question

Информатика

Ильюха

13 августа, 10:13

Написать программу для решения следующей задачи: учебным заведением был приобретен стол за S руб. Его амортизация составляет 12% в год. Определить,

сколько он будет стоить через N лет. (Pascal)

Пример:

Введите стоимость стола: 35000

Введите кол-во лет: 5

Стоимость стола на конец 1 года: 30800.000 рублей

Стоимость стола на конец 2 года: 27104.000 рублей

Стоимость стола на конец 3 года: 23851.520 рублей

Стоимость стола на конец 4 года: 20989.338 рублей

Стоимость стола на конец 5 года: 18470.617 рублей

+3

Ответы (1)

Знаете ответ на вопрос?

Дуняра · Answer 1

Program Schet;

var

i:integer;

stoimost:real;

godi:integer;

Begin

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

Readln (stoimost) ;

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

Readln (godi) ;

for i:=1 to godi do

Begin

stoimost-=stoimost*0.12;

Writeln ('Стоимость стола на конец ' + i + ' года: '+stoimost) ;

End;

End.