Написать программу для решения следующей : учебным - вопрос №5749771 от pecheintsynak 11.11.2020 17:37

Question

Информатика: Написать программу для решения следующей : учебным заведением был приобретен стол за s руб. его амортизация составляет 12% в год. определить, сколько он будет стоить через n лет. (pascal) пример: введите стоимость стола : 35000 введите кол-во лет : 5 стоимость стола на конец 1 года : 30800.000рублей стоимость стола на конец 2 года : 27104.000рублей стоимость стола на конец 3 года : 23851.520рублей стоимость стола на конец 4 года : 20989.338рублей стоимость стола на конец 5 года : 18470.617рублей

pecheintsynak · Answer

Var   years,i:integer;   Ststola,a,s:real;begin     writeln( Ââåäèòå ñòî-òü ñòîëà: );     readln(Ststola);     writeln( Ââåäèòå êîë-âî ëåò: );     readln(years);     s:=0;     for i:=1 to years do         begin             a:=Ststola*0.12;             a:=Ststola-a;             Ststola:=a;             Writeln( Стоимость стола через  , i, лет , a);         end;end....