<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=70;
var a:=ArrRandom(n,0,2); a.Println;
Writeln('Количество нулей на нечетных местах: ',
Range(0,n-1,2).Select(i->a[i]).Where(t->t=0).Count)
end.
<u>Пример</u>
0 2 1 2 2 0 2 1 2 2 2 2 1 1 2 2 2 2 1 2 2 2 0 2 0 0 2 0 2 0 0 2 2 0 2 1 1 0 0 2 0 2 0 1 2 2 0 2 0 0 2 0 2 1 1 0 2 1 2 1 0 2 1 2 1 0 0 1 2 1
Количество нулей на нечетных местах: 11
- - - - - - - - - -
begin
var n:=35;
var a:=ArrRandom(n,0,2); a.Println;
Writeln('Количество единиц на четных местах: ',
Range(1,n-1,2).Select(i->a[i]).Where(t->t=1).Count)
end.
<u>Пример</u>
1 2 0 0 1 1 2 1 1 1 0 2 1 2 2 1 1 1 0 1 0 0 2 2 2 1 2 1 2 2 1 2 0 1 1
Количество единиц на четных местах: 9
450 = <span>111000010 </span>
0000000111000010 - прямой
1111111000111101 - обратный
+1
1111111000111110 - дополнительный
з.ы числа написаны в 2битной сетке (если нужно убери первые нули)
Var n,n1,m:integer;
begin
write('n = ');
readln(n);
n1:=abs(n);
m:=(n1 mod 10)*100+(n1 div 10 mod 10)*10+(n1 div 100);
if n<0 then m:=-m;
writeln('m = ',m);
end.
Пример:
n = -123
m = -321
A ∧ B ⊕ A ∧ ¬B
Выразим исключающее или
(A ∧ B) ∧ ¬(A ∧ ¬B) ∨ ¬(A ∧ B) ∧ (A ∧ ¬B)
Применим законы де Моргана
A∧ B ∧(¬A∨B)∨A∧¬B∧(¬A∨¬B)
Раскроем скобки
A∧¬A∧B ∨ A∧B∧B ∨ ¬A∧A∧¬B ∨
Сократим (применим <span>Идемпотентность</span> и "законы 0 и 1")
A∧B ∨ A∧¬B
Вынесем A за скобку и применим "закон 0 и 1"
A
Ответ: A