Мынау кандай сабак?
Кай сынып?
3) 1)
¬( (A*¬B)+(B*¬C) ) = (¬A*¬B)+(¬A*C)+(B*C) ?
¬(A*¬B) *¬(B*¬C) = ¬A¬*B+¬A*C+B*C ?
(¬A+B)*(¬B+C) = ¬A*¬B+¬A*C+B*C ?
¬A*¬B+¬A*C+B*C = ¬A*¬B+¬A*C+B*C доказано
3) 2)
(A*B)+¬(A*¬C) = (A*B)+A+¬C ?
A*B+¬A+C = A(B+1) +¬C ?
¬A+C ≠ A+¬C не равносильны
4) 1)
F=A*B*¬C + A*B*C + A*B
F=A*B*(¬C+C+1)
F=A*B
4) 2)
F= (A*B+A*B*¬C+B*¬C+C)*( ¬C+A*C+¬A*B*¬C)
F=( A*B*(1+¬C)+ B+C) * (¬C*(1+¬A*B)+A*C)
F=(A+C) * (A+¬C)
F=A+A*¬C+A*C
F=A
5)
X=?
¬(X+A)+¬(X+¬A)=B
¬X*¬A+¬X*A=B
¬X*(¬A+A)=B
¬X=B
X=¬B
Пишите, пожалуйста, язык, который вам нужен. Пишу на наиболее вероятном: Pascal.
program massiv;
uses crt;
var A:array[1..10] of integer; s: real; i,k, p: integer;
begin
clrscr;
randomize;
writeln ('задан массив:');
for i:=1 to 10 do
begin
a[i]:=random(100); {задание массива}
s:=s+a[i];{ считаем сразу сумму элементов}
write (a[i]:4); {вывод на экран}
end;
s:=s/10;
for i:=1 to 10 do
if a[i]>s then p:=p+1;
if p mod 2= 0 then {проверка на четность}
for i:=1 to 10 do a[i]:=a[i]+i
else
begin
k:=a[5];
a[5]:=a[6];
a[6]:=k; {обмен значений а5 и а6. если считать их центральными элементами, через третью переменную}
end;
writeln; {дабы у вас ничего не слиплось}
for i:=1 to 10 do write (a[i]:4); {вывод полученного массива на экран}
end.
Program z_1;
var i,n,fact:longint;
begin
writeln('введите число от 1 до 10);
read(n);
fact:=1;
if (n>=1) and (n<=10) then
for i:=1 ti n do
fact:=fact*i
else
write('число не входить в диапозон от 1 до 10');
end.
Тело цикла будет выполнено 31 раз. Следовательно переменная s станет равна 93