Program aaa;
var
a,b,c,n,i:longint;
M:array[1..1000000] of real;
begin
read(n); //
for i:=1 to n do //если считывать массив не нужно, то удалить
read(M[i]); //
a:=0;
b:=0;
c:=0;
for i:=1 to n do
begin
if M[i]>0 then inc(a);
if M[i]=0 then inc(b);
if M[i]<0 then inc(c)
end;
writeln('положительных элементов:',a);
writeln('нулевых элементов:',b);
writeln('отрицательных элементов:',c)
<span>end.</span>
Simplify ¬АvВ v ¬(А&С) = <span>¬АvВ v ¬С
</span>logic circuit in <span>addition</span>
1) Номера букв
с начала алфавита - 16,5,20,25,17
с конца алфавита - 18,29,14,9, 17
Сумма номеров для каждой буквы 34.
в - 3+31, ц -24+10. И это для любой буквы
2) игра в города
Волгодонск, Калуга
2.
3(x-2)+2(4-x) = 3*(x-2)+2*(4-x)
4x^3-y^2 = 4*power(x,3)-sqr(x)
2a+b/3(b) = (2*a+b)/(3*sqrt(b))
3.
2(a-b) = 2*(a-b)
(a+b)(c+d) = (a+b)*(c+d)
2(c)/c-2d = (2*sqrt(c))/c-2*d