Изменив построенную модель роста и убывания решите следующую задачу:
На пищевом комбинате в установку по производству дрожжей заложена 1т дрожжевой массы. При поддержании оптимальной температуры за сутки масса дрожжей возрастает на 150%. 1,5 тонны массы ежедневно пускают в производство. В результате неполадки температура в установке повысилась, и прирост составил 160% в сутки. Через сколько суток масса дрожжей в установке может достигнуть 3,5 тонны? Решить в Exel.
const
p =3.14;
var
a,b,r,s1,s2:real;
begin
Writeln('Введите длины сторон прямоугольника');
readln(a,b);
Writeln('Введите радиус окуржности');
Readln(r);
s1:=a*b;
s2:=p*sqr(r);
Writeln('Площадь закрашеной окружности = ', s2-s1);
end.
Если закрашена какая-то другая область то можете просто изменить действие с площадями в предпоследней строчке ( в данном случае мы из s2 вычитаем s1).