Question

СРОЧНО!!СРОЧНОООООООООООО!!!ПОЖАЛУЙСТААА

Answer 1

Var q: integer;
    s: real;
begin
  q:=0;
  repeat
    inc(q);
    s:=sqr(q)*q/125 - sqr(q) -90*q + 10000;
  until s<0;
  writeln('объем выпуска: ',q);
  s:=(sqr(q)*q/125-sqr(q)+180*q+10000)/q;
  writeln('затраты на единицу: ',s:5:2);
end.

объем выпуска: 86
затраты на единицу: 269.45