1. некоторые из нашего класса любят ходить в кино. известно, что 15 смотрели фильм «обитаемый остров», 11 человек – фильм «стиляги». из них 6 смотрели и «обитаемый остров», и «стиляги». сколько человек смотрели только фильм «стиляги»? 4. из 40 предложений 30 содержат предлог «в», 27 предлог «на», в пяти предложениях нет ни того, ни другого. сколько предложений содержат оба предлога? 7. a = { 1, 2, 8, 9, 14, 33}, b = {1, 7, 9, 13, 17, 33} найти а в a = { 1, 2, 8, 9, 14, 33}, b = {1, 7, 9, 13, 17, 33} найти а в a = { 1, 2, 8, 9, 14, 33}, b = {1, 7, 9, 13, 17, 33} найти а \ в a = { 1, 2, 8, 9, 14, 33}, b = {1, 7, 9, 13, 17, 33} найти а ∆ в

1) 11 - 6 = 5 человек  2,1) 40 - 5 = 35 - предложения в которых есть и в и на 2.2) в те 35 входят 30 предложений содержащие в, те 5  (35 -  30) предложениях содержится только на 2.3) 27 - 5 = 22 предложений содержат и в и на

Число одинарной точности согласно стандарту ieee 754 представляется следующим образом: 31-й бит - знаковый разряд (0 для положительных, 1 для отрицательных) биты с 30 по 23 - порядок остальные биты (с 22 до 0) -  дробная часть нормализованной мантиссы 1 10000011 00001110000000000000000 знак: 1 число отрицательное порядок: 10000011 показатель степени 10000011_2 - 01111111_2 = 00000100_2 = 4_10 мантисса: 00001110 00000000 0000000 1,0000111_2 = 2^0 + 2^-5 + 2^-6 + 2^-7 число равно -2^4 * (1 + 2^-5 + 2^-6 + 2^-7) = -(2^4 + 2^-1 + 2^-2 + 2^-3) = -(16 + 0.5 + 0.25 + 0.125) = -16.875

program zn;

uses crt;

type mas=array [1..20, 1..20] of real;

var a: mas; i,j,g,b,n,m,o: integer;     l: real;

begin

        clrscr;

        write ('введите диапазон массива: ');

        readln (g,b);

        write ('введите размер массива: ');

        readln (n,m);

        randomize;

        for i: =1 to n do

                begin

                  for j: =1 to m do

                        begin

                                  a[i,j]: =random(b-g)+g;

                                  write (a[i,j]: 5: 0, '  ');

                        end;

                        writeln;

                end;

        o: =0;

        for i: =1 to n do

            begin

                for j: =1 to m do

                        begin

                                  a[3,j]: =o;

                        end;

            end;

        for i: =1 to n do

                begin

                    for j: =1 to m do

                          if i=1 then

                            begin

                                      l: =l+a[i,j];

                            end;

                end;

        writeln ('новый массив');

        for i: =1 to n do

              begin

                for j: =1 to m do

                        begin

                                  write (a[i,j]: 5: 0, '  ');

                        end;

                        writeln

              end;

              writeln ('сумма элементов первой строки= ',l: 5: 0);

readln;

end.

  вообщем вот.