Var q: integer;
<span> s: real;
</span><span>begin
</span><span> q:=0;
</span><span> repeat
</span><span> inc(q);
</span><span> s:=sqr(q)*q/125 - sqr(q) -90*q + 10000;
</span><span> until s<0;
</span><span> writeln('объем выпуска: ',q);
</span><span> s:=(sqr(q)*q/125-sqr(q)+180*q+10000)/q;
</span><span> writeln('затраты на единицу: ',s:5:2);
</span><span>end.
</span>объем выпуска: 86
<span>затраты на единицу: 269.45
</span>
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
Writeln('S=',pi*sqr(ReadReal('r=')):0:5)
end.
<u><em>Тестовое решение:</em></u>r= 12.7
S=506.70748
Координата точки х = 4, у = 0 m = 5, где m размер изображения
