// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 begin var n:=ReadInteger('n='); var a:=MatrixRandom(n,n,10,99); var s:=0; var k:=0; for var i:=0 to n-1 do begin for var j:=0 to n-1 do Print(a[i,j]); Writeln; if a[i,i].IsEven then begin s+=a[i,i]; Inc(k) end; end; if k>0 then Writeln('S=',s/k:0:2) else Writeln('На главной диагонали нет четных элементов') end.
not(a) and (b or not(c))
Код на Python:
for a in range(0,2):
for b in range(0,2):
for c in range(0,2):
f=not(a) and (b or not(c))
print('A = ',a,'B = ',b,'C = ',c,'F = ',f)
б) А и не ( В и или не С) получим такое выражение:
a and (b or not(c))
Код на Python:
for a in range(0,2):
for b in range(0,2):
for c in range(0,2):
f=a and (b or not(c))
print('A = ',a,'B = ',b,'C = ',c,'F = ',f)
в) не ( не А или В и С) преобразуем:
a and (b or c)
Код на Python:
for a in range(0,2):
for b in range(0,2):
for c in range(0,2):
f=a and (b or c)
print('A = ',a,'B = ',b,'C = ',c,'F = ',f)