Копировать его............
Значит надо нарисовать таблицу истинности для всех возможных комбинаций значений A и B. Таких комбинаций будет 2^2=4
A B A+B A+(A!*B)
1 1 1 1
1 0 1 1
0 1 1 1
0 0 0 0
Var a:array[1..100]of integer;
nol,chet,nechet,i,n:integer;
begin
readln(n);
for i:=1 to n do begin
readln(a[i]);
if (a[i] mod 2=0)and(a[i]<>0) then chet:=chet+1;
if (a[i] mod 2=1) then nechet:=nechet+1;
if a[i]=0 then nol:=nol+1;
end;
writeln('четных :',chet,' ','нечетных :',nechet,',' ',нулевых :',nol);
<span>end.</span>
2мин=120с, чтобы узнать скорость - надо кол-во символов поделить на время, получается 360/120=2бит/с
AB+A!B=A(B+!B)=A
!(X+Y)(X!Y)=(!X!Y)(X!Y)= 0
!XY+!(X+Y)+X = !XY+!X!Y+X = !X(Y+!Y)+X = !X+X = 1
(X+Y)(!X+Y)(!X+!Y) = F
(X+Y)(!X+Y) = X!X+XY+Y!X+YY = 0+XY+Y(!X+1) = XY+Y= Y(X+1) = Y
Y(!X+!Y)=Y!X+Y!Y=Y!X
(X+Y)(!X+Y)(!X+!Y) = Y!X
5 пример особо не упростишь
!(XY+!Z)=!(XY)Z=(!X+!Y)Z