Фирма электронные приборы выпустила автоматизированную ванну банный комплекс пульт которой представлен на рисунке.однако в результате ошибки фирмы все кнопки кроме долить 5 л. и слить 3л. не работают.напишите программу позволяющую долить в ванну следующие количество воды 4 литра и 3 литра сколько воды пропало впустую из за брака фирмы?

долить 4 литров =  долить 5 л, + слить 3л + долить 5л. + слить 3л.

долить 3 литра = долить 5 л + слить 3 л + долить 5 л + слить 3 + слить 3 л + долить 5 л + слить 3

 

в первой кнопке впустую пропало 6 литровво втором 12 литров

 

 

 

Вматрице 42 элемента. заполним её случайными значениями в диапазоне от  x/2 до  2*y, тогда в среднем половина значений попадет в заданный диапазон. const   m=6;   n=7; var   a: array[1..m,1..n] of integer;   i,j,k,x,y,x1,y1,s: integer; begin   randomize;   write('введите через пробел x и y: '); read(x,y);   if y< x then begin s: =x; x: =y; y: =s end;   writeln('исходный массив');   if x< 0 then x1: =2*x else x1: =x div 2;   if y< 0 then y1: =y div 2 else y1: =2*y;   k: =y1-x1+1; s: =0;   for i : = 1 to m do   begin       for j : = 1 to n do       begin           a[i,j]: =random(k)+x1;           write(a[i,j]: 4);           if (a[i,j]> =x) and (a[i,j]< =y) then s: =s+a[i,j]       end;       writeln   end;   for j: =1 to n do a[1,j]: =s;   writeln('результирующая матрица');   for i : = 1 to m do   begin       for j : = 1 to n do write(a[i,j]: 4);       writeln   end end. тестовое решение: введите через пробел x и y: -5 10 исходный массив     0  11  -6  15  -8  -2  -6     9    0    6    1  11  -2  -1     2    9  13  -1    6    0    9     6    1  -5    8  -3    0  -5     8    4  -8    7  -6    6  11   18  -1  15  -8  -9  -9  20 результирующая матрица   62  62  62  62  62  62  62     9    0    6    1  11  -2  -1     2    9  13  -1    6    0    9     6    1  -5    8  -3    0  -5     8    4  -8    7  -6    6  11   18  -1  15  -8  -9  -9  20

Uses  crt; var  a: array[1..6]of integer;     i, min: integer; begin  clrscr;   min : = maxint;   writeln('введите элементы массива');   for i : = 1 to 6 do            begin              readln(a[i]);               if   (min > a[i]) then min : = a[i];             end;   writeln('min=', min);   repeat until keypressed; end.