Нам нужно найти К&Ф. На кругах эйлера видно, что И входит в ИЛИ. Чтобы найти И нужно взять два круга (К и Ф), полностью их сложить и вычесть из суммы К | Ф. Таким образом мы получим И.
Var matrix: array[1..5,1..5] of integer; i, j: integer; sg:=0; sp:=0;begin writeln ('Введите 25 чисел: '); for i := 1 to 5 do for j := 1 to 5 do read (matrix[i,j]); for i := 1 to 5 do begin for j := 1 to 5 do write (matrix[i,j], ' '); writeln end; for i:=1 to 5 do begin for j:= 1 to 5 do if j=i then sg:=sg+matrix[i,j]; end; for i:=5 downto 1 do begin for j:=1to 5 do if (i+j)=6 then sp:=sp+matrix[i,j] end; sp:=sp-matrix[3,3];1 writeln(sg,' ',sp);readlnend
Нам нужно найти К&Ф. На кругах эйлера видно, что И входит в ИЛИ. Чтобы найти И нужно взять два круга (К и Ф), полностью их сложить и вычесть из суммы К | Ф. Таким образом мы получим И.
960+780-1550 = 190
ответ: 190