1. 1v1=1 , 1∧0=0 , ¬0=1
2. ¬А=1, ВvС=0, Д∧С=1
Объяснение:
1
AvВ, если А = 1, В = 1 1v1=1
A ∧ B, если A = 1, B = 0 1∧0=0
¬ А, если А= 0 ¬0=1
2. 1. инверсия – это логическое отрицание, в данном случае высказывание А не истинно, значит не(не истина)=истинна
2. Дизъюнкция – логическое сложение будет истинным тогда, когда хотя бы одно исходное высказывание истинно, так как В-ложь и С ложь, то ВvС=0
3. Конъюнкция – логическое умножение будет истинным тогда, когда оба исходных выражения истинны. Т.к. Д и С истинны, то и результат истина, т.е. =1
1. 1v1=1 , 1∧0=0 , ¬0=1
2. ¬А=1, ВvС=0, Д∧С=1
Объяснение:
1
AvВ, если А = 1, В = 1 1v1=1
A ∧ B, если A = 1, B = 0 1∧0=0
¬ А, если А= 0 ¬0=1
2. 1. инверсия – это логическое отрицание, в данном случае высказывание А не истинно, значит не(не истина)=истинна
2. Дизъюнкция – логическое сложение будет истинным тогда, когда хотя бы одно исходное высказывание истинно, так как В-ложь и С ложь, то ВvС=0
3. Конъюнкция – логическое умножение будет истинным тогда, когда оба исходных выражения истинны. Т.к. Д и С истинны, то и результат истина, т.е. =1
Const
N = 13;
Var
A:array[1..N] of integer;
i,k:integer;
S:real;
Begin
Randomize;
ClrScr;
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(A[i],' ')
End;
WriteLn;
i:=1;
k:=0;
While (A[i]>=0)and(i<N) do
Begin
k:=k+1;
i:=i+1
End;
if A[i]>=0 then k:=k+1;
WriteLn('k = ',k);
S:=0;
For i:= i+1 to N do
S:=S+A[i];
WriteLn('S = ',S:0:3);
ReadLn
End.