1) Найти: AB,AB, , ,A\B,B\A Изобразите диаграммы Эйлера 2)С таблицы истинности проверить справедливость следующего тождества:
3)Упростить логическое выражение:
Описать выполнение каждого задания.

//Блок-схема во вложении
//Pascal ABC.NET v3.1 сборка 1172

Var
 ma:array of array of integer;
 i,j,r,n,m,s:integer;
begin
randomize;
 readln(n);
 readln(m);
 setlength(ma,n);
 for i:=0 to n-1 do
 setlength(ma[i],m);
 writeln('Matrix:');
  for i:=0 to n-1 do
   begin
    writeln;
     for j:=0 to m-1 do
      begin
       ma[i,j]:=random(50);
       write(ma[i,j]:4);
      end;
   end;
 writeln;
 writeln('Res:');
 for i:=0 to n-1 do
  begin
   for j:=0 to m-1 do
    s:=s+ma[i,j];
   writeln(i+1,' ',s);
   s:=0;
  end;
end.

Пример ввода:
10
15
Пример вывода:
Matrix:
  12   1  21  15  36  30  12  13  46  40  22  48  20  48   7
  48  37  49  25  37  41  29  23  34  45  38  14  21  13   3
  48  27  29  26  18  28  24  20  21  41  18  10  48   8  46
   5   7  48   9  31  46  35  11  36  41  33  28  37  20  47
  15  41   0  43  42  44  19  44  30  29  24  16  28  34  18
  30  31  14  37  39  30  16  11  32   6  13  16  42  35  35
   0  37  49  23  25  27  10   5  16   2  36  13  18  30   7
  30   6  26  18  11   1  14  49  31  17  49  29  17  37  28
  28  26   8  44  28  36  16   5   8  41  19  25  47  35   2
  17  48  31  25  26   6  39  24  23  33  35  37  18   6  26
Res:
1 371
2 457
3 412
4 434
5 427
6 387
7 298
8 363
9 368
10 394

1. Первый интервал 21-30, в него входят 10 чисел (21,22,23,24,25,26,27,28,29,30) = а вероятность будет равна количеству чисел этого интервала к общему интервалу [1;100]. Таким образом для первого интервала 10/100 = 10% = 0,1.
2.Идем по аналогии с предыдущим интервалом : [31;55] - это 25 чисел,следовательно 25/100=25% = 0,25.
3.Интервал [25;100] - это 75 чисел. 75/100=75%=0,75.
4. Ровно 25, это единственное число,а как вы уже успели заметить - каждое число является 1 процентом. Таким образом можно сразу сказать что вероятность для этого случая 1% или 0,01.

ответ: 0.1 ; 0.25 ; 0.75 ; 0.01.