Предмет: Информатика,
автор: Wemmet
Написать программу для решения следующей задачи: учебным заведением был приобретен стол за S руб. Его амортизация составляет 12% в год. Определить,
сколько он будет стоить через N лет. (Pascal)
Пример:
Введите стоимость стола : 35000
Введите кол-во лет : 5
Стоимость стола на конец 1 года :30800.000рублей
Стоимость стола на конец 2 года :27104.000рублей
Стоимость стола на конец 3 года :23851.520рублей
Стоимость стола на конец 4 года :20989.338рублей
Стоимость стола на конец 5 года :18470.617рублей
Ответы
Автор ответа:
0
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.
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.
Интересные вопросы
Предмет: Геометрия,
автор: mihailf000
Предмет: Алгебра,
автор: linturolena
Предмет: История,
автор: larik22larik
Предмет: Математика,
автор: minnieva04
Предмет: Алгебра,
автор: ЧайкаКофейка