Вывести среднюю стоимость продукта за 10 месяцев - Pascal ABC

Формулировка задачи:

Начальная стоимость продукта равна С рублей предполагается ежемесячное снижение стоимости на р рублей за счет совершенствования технологии и ежемесячное увеличение на q% из-за роста стоимости электроэнергии вывести среднюю стоимость продукта за 10 месяцев

Код к задаче: «Вывести среднюю стоимость продукта за 10 месяцев - Pascal ABC»

textual
const n=10;
var c,p,q,s,sr:real;
    i:integer;
begin
repeat
writeln('c>0 0<p<c q>0');
readln(c,p,q);
until (p>0)and(c>p)and(q>0);
sr:=0;
for i:=1 to n do
 begin
  c:=c-p+q;
  sr:=sr+c;
 end;
sr:=sr/n;
write(sr:0:2);
end.

8   голосов, оценка 3.875 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы