СРОЧНО!!!)) Помогите пожалуйста!!!! Желательно решение ** листике)) ** заводе имеется...

Question

СРОЧНО!!!))
Помогите пожалуйста!!!!
Желательно решение на листике))
На заводе имеется 120 тонн дрожжевой массы.Ежедневно она увеличивается на p%, а на хозяйственные нужды расходуется Х тонн. Сколько дрожжевой массы будет на заводе через Т дней?

Answer 1

Var d,p,x:real; t,i:integer;
begin
d:=120;
readln(p,x,t);
for i:=1 to t do d:=d+d*p/100-x;
writeln('d = ',d:5:2);
end.

Пример:
10 15 5
d = 101.68

Answer 2

А листик тебе Почтой России выслать или через знакомых передать? В задачке можно вывести формулу, но мне лень, сделаем через цикл.

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём ИЗ "...\Отделы\Обмен\";

ПЕР
  дрожжи, процент, расход, дней: ВЕЩ;
  сч: ЦЕЛ;

УКАЗ
  дрожжи := 120;
  Вывод.Цепь("p: "); процент := Приём.Число();
  Вывод.Цепь("Tx: "); расход := Приём.Число();
  Вывод.Цепь("Tt: "); дней := Приём.Число();
  ОТ сч := 1 ДО дней ВЫП
    дрожжи := дрожжи + дрожжи * (процент / 100) - расход
  КОН;
  Вывод.ЧВещ("^%g", дрожжи, 0, 0, 0)

КОН Задание.

Comments

Зачем же высылать) вы лучше решите на листике, а потом сделайте фото и скиньте) Через цикл лучше не делать!