1) 10101-1110=111₂
2) 111₂=2²*1+2*1+2⁰*1=4+2+1=7₁₀
Var
x,y,z:array [1..10] of integer;
i,n:integer;
begin
writeln('введите n');
readln(n);
writeln('введите массив x');
for i:=1 to n do
readln(x[i]);
writeln('введите массив y');
for i:=1 to n do
readln(y[i]);
for i:=1 to n do
z[i]:=x[i]*y[i];
writeln('Массив x: ');
for i:=1 to n do
write(x[i],' ');
writeln;
writeln('Массив y: ');
for i:=1 to n do
write(y[i],' ');
writeln;
writeln('Массив z: ');
for i:=1 to n do
write(z[i],' ');
writeln;
end.
Program p1;
Uses crt;
Var A: array [1..10] of integer;
i,k: integer;
Begin clrscr;
Writeln ('Введите элементы массива');
for i:=1 to 10 do
read (a[i]);
k:=0;
for i:=1 to 10 do
begin
if (a[i]>10) and (a[i]<30) then
k:=k+1;
end;
writeln ('Количество чисел в диапазоне (10;30) =',k);
Readln;
readkey;
end.
1. (A ∧ ¬B) ∨ (¬A ∧ B)
1. ( (A ∧ ¬B) ∨ ¬A) ∧ ( (A ∧ ¬B) ∨ B) - <em>по закону дистрибутивности</em>;
2. ( (A ∨ ¬A) ∧ (¬B ∨ A) ) ∧ ( (B ∨ A) ∧ (¬B ∨ B) - <em>по закону дистрибутивности</em>;
3. (1 ∧ (¬B ∨ A)) ∧ ( (B ∨ A) ∧ 1) - <em>по закону исключения третьего</em>;
4. (¬B ∨ A) ∧ (B ∨ A) = A - <em>по закону исключения (склеивания)</em>.
2. ¬(A ∨ ¬B)
¬(A ∨ ¬B) = ¬A ∧ B - <em>по закону де Моргана</em>.
3. A ∧ ¬B ∨ C
A ∧ ¬B ∨ C = (C ∨ A) ∧ (C ∧ ¬B) - <em>по закону дистрибутивности</em>.
