Опередить себестоимость 1 ц молока и 1 головы приплода, если получено 3290 ц молока и 140 голов приплода, затраты по молочному стаду составили 2415 тыс. руб., стоимость навоза 58 тыс. руб​

а) Всего получили: 45 + 75 = 120 (учебников). В одной пачке: 120 : 8 = 15 (учебников). Один класс получил: 45 : 15 = 3 (пачек). Другой класс получил: 75 : 15 = 5 (пачек).
Ответ: 3 пачки учебников получил один класс, 5 пачек учебников получил другой класс, б) Получили всего: 3 + 5 = 8 (пачек). В одной пачке: 120 : 8 = 15 (учебников). Один класс получил: 15 • 3 = 45 (учебников). Другой класс получил: 15*5 = 75 (учебников). Ответ: 45 учебников получил один класс,  75 учебников получил другой класс. Это взаимообратные задачи.

program progressbar_Console;

uses crt,sysutils;

 

const lBar=10;

bar100=110;  

var i:integer;

 

procedure pBar(const cp:integer);

var i,n,m:integer;s:string;s1:String;ch:char;

   begin

       m:=round(100/bar100*cp);

       n:=round(lBar/bar100*cp);

       s:='[]';

       s1:=' '+IntToStr(m)+' % ';

       for i:=1 to lBar do

           begin

               if i<n then ch:=#35 else ch:=#45;

               insert(ch,s,pos(']',s));

           end;

       insert(s1,s,pos('[',s)+1+(lBar div 2));

        gotoxy(1,1);writeln(s);

   end;

 

begin

 clrscr;

for i:=1 to  bar100 do

    begin

      pBar(i);

      delay(50);

    end;

end.