на пищевом комбинате в установку по изготовлению дрожжей заложено 0,75т дрожжевой

program raf105;

var

 dr: real;

 day: integer;

 a,b: boolean;

begin

 dr:= 0.75;

 while not(a) or not(b) do

 begin

   day:= day+1;

   dr:= dr + dr/100*160;

   dr:= dr - 0.6;

   if day = 6

     then begin

       writeln('а) Через 6 дней в установке будет ',dr:0:2,' т. дрожжей');

       a:= True;

     end;

   if (dr gt;= 9) and not(b)

     then begin

       writeln('б) Через ',day,' суток масса дрожжей достигнет порога 9 т.');

       b:= True;

     end;

  end;

end.

PascalABC 3.4.2

Ответ:

Var i:integer;

Mas:real;

Begin

Задание а

Mas:=0.75;

For i:=1 to 6 do begin

Mas:=mas*2.6-0.6;

End;

Write(mas);

Задание b

Mas:=0.75;

I:=0;

Repeat

Mas:=mas*2.6-0.6;

Inc(i);

Until masgt;9.0

Write(i);

End.