ответ 2) 2. насколько я помню,это так. ((2>2)V(2<2))->(2>4). 1-да,истина,0-нет,ложь. (0V0)->0.стрелка это импликация,раскрывается вроде так x->y это (не Х V y),т.е. слево по де Моргану раскрываем,выходим 1*1V0=1.
В первой скобке выражение истинно для любого Х за исключением Х=2 далее следует импликация, которая даст истину если ложно первое высказывание и второе одновременно. Однако из всех предложенных вариантов второе высказывание всегда ложно. Следовательно ответ - 2
Program z1; Var i,n,a,b,c:integer; m: array [1..1000] of integer; Begin write('Введите кол-во чисел - '); readln(n); randomize; a:=0; b:=0; c:=0; for i:=1 to n do begin m[i]:=random(100)-50; write (m[i],' '); end; for i:=1 to n do if (m[i]=0) then a:=a+1; for i:=1 to n do if (m[i]>0) then b:=b+1; for i:=1 to n do if (m[i]<0) then c:=c+1; writeln; writeln ('Кол-во нулей - ',a); writeln ('Кол-во положительных чисел - ',b); writeln ('Кол-во отрицательных чисел - ',c);End.
Program z1; Var i,n,a,b,c:integer; m: array [1..1000] of integer;Begin write('Введите кол-во чисел - '); readln(n); randomize; a:=0; b:=0; c:=0; for i:=1 to n do begin m[i]:=random(100)-50; write (m[i],' '); end; for i:=1 to n do if (m[i]=0) then a:=a+1; for i:=1 to n do if (m[i]>0) then b:=b+1; for i:=1 to n do if (m[i]<0) then c:=c+1; writeln; writeln ('Кол-во нулей - ',a); writeln ('Кол-во положительных чисел - ',b); writeln ('Кол-во отрицательных чисел - ',c);End.
1-да,истина,0-нет,ложь. (0V0)->0.стрелка это импликация,раскрывается вроде так x->y это (не Х V y),т.е. слево по де Моргану раскрываем,выходим 1*1V0=1.