Решите замазку для окон готовят из смеси мела и олифы. мела берут в 4 раза больше, чем олифы. сколько граммов каждого из этих вещевств надо взять, чтобы приготовить 850 грамм замазки? вторая для приготовления клюквенного киселя сахар, крахмал, клюкву и воду берут в пропорции 3/1/3/25. сколько граммов каждого продукта надо взять, чтобы приготовить 6 порций киселя по 200 грамм?

пусть х грамм-количество  олифы, у грамм - кол-во мела.

тогда х=4у.

составим систему:

 

у=170 грамм х=680 грамм

 

 

или так:

пусть х грамм-количество  олифы.

тогда 4х-количество мела.

х+4х=850 грамм

5х=850 грамм

х=170 грамм - олифа

170*4=680 - мел

 

 

№2

пусть х грамм - крахмал.

тогда 3х грамм-сахар, 3х грамм-клюква, 25х-воода.

3х+х+3х+25х=6*200

32x=1200

x=37,5 грамм - крахмал

3х=112,5 грамм - сахар

112,5 грамм-клюква

25х= 937,5 грамм-вода

 

Const   n = 5; var   a,b: array[1..n,1..n] of integer;   c,r: array[1..n] of integer;   i, j: integer; begin   randomize;   { инициализация }   writeln('матрица a');   for i : = 1 to n do   begin       for j: =1 to n do       begin           a[i,j]: = random(51);           write(a[i,j]: 3)       end;       writeln   end;   writeln('матрица b');   for i : = 1 to n do   begin       for j: =1 to n do       begin           b[i,j]: = random(51);           write(b[i,j]: 3)       end;       writeln   end;   writeln('вектор c');   for i : = 1 to n do   begin       c[i]: = random(51);       write(c[i]: 3)   end;   writeln;   { вычисление и вывод }   writeln('вектор результата');   for i: =1 to n do   begin       r[i]: =0;       for j: =1 to n do r[i]: =r[i]+c[j]*(5*a[i,j]+b[i,j]);       write(r[i],' ')   end end. тестовое решение: матрица a   44 49 29 34  2   48  1 33 10 24   43 48 29  4 50   2 14  5 25 21   39 31 19 12 23 матрица b   42 32 26 10 37   35 29  6 49 43   42 44 10 32 11   32 20  3 11 41   22 40  9 35 10 вектор c   39  9 23 45 44 вектор результата 26812 26591 29968 15636 22385

Const   n = 20; var   a: array[1..n] of integer;   b: div 3)+1] of integer;   i, m: integer; begin   randomize;   writeln('элементы массива');   m : = 0;   for i : = 1 to n do   begin       a[i]: = random(155)-55;       write(a[i]: 4);       if (a[i]> 51) and (i mod 3=0) then       begin m: =m+1; b[m]: =a[i] end   end;   writeln;   if m> 0 then begin       writeln('элементы сформированного массива');       for i : = 1 to m do write(b[i]: 3);       writeln   end   else writeln('нет элементов с индексом, кратным 3, больших 51') end. тестовое решение: элементы массива   57  -3  79 -49  30  87 -15  49 -38 -49 -45 -38  55 -27  48 -29  56  63  79  -2 элементы сформированного массива   79 87 63