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

30 июня 2016 / Школа

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

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


Комментарии: 1
  1. Пр0ст0Пр0х0жий
    30 июня 2016 в 8:22 – Ответить
    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.

Добавить комментарий