Вычисли значение математического выражения в MS Excel: (86+155)−2(75:(5+17)

8.25

Объяснение:

Var a:array[1..10] of integer;
  k,n,i:integer;
  min:INTEGER;
begin
  randomize; N:=10; k:=0 {кол-во отрицательных элементов};
  writeln ('исходный массив');
  for i:=1 to N do
  begin
   if random(2) =1 then a[i]:=random(100)
     else begin k:=k+1; a[i]:=-random(100); min:=a[I] end;
   write(a[i]:5);
  end;
  writeln;
  {поиск минимального положительного}
  if (k<>0) or (k<>N) then  {есть отрицательные или не все отрицательные}
  begin
    for i:=1 to N do
     if  (a[i]>0) and (a[i]<min) then  min:=a[i];
  {замена}
    for i:=1 to N do
     if  (a[i]<0)  then  a[i]:=min;
  end;
  writeln('Новый массив')
    for i:=1 to N do      write(a[i]:5);
end.

1000 = 2^3*1 + 2^2*0 + 2^1*0 + 2^0*0 = 8 + 0 + 0 + 0 = 8
0001 = 2^3*0 + 2^2*0 + 2^1*0 + 2^0*1 = 0 + 0 + 0 + 1 = 1
0110 = 2^3*0 + 2^2*1 + 2^1*1 + 2^0*0 = 0 + 4 + 2 + 0 = 6
0001 = 2^3*0 + 2^2*0 + 2^1*0 + 2^0*1 = 0 + 0 + 0 + 1 = 1
0101 = 2^3*0 + 2^2*1 + 2^1*0 + 2^0*1 = 0 + 4 + 0 + 1 = 5
0100 = 2^3*0 + 2^2*1 + 2^1*0 + 2^0*0 = 0 + 4 + 0 + 0 = 4
1001 = 2^3*1 + 2^2*0 + 2^1*0 + 2^0*1 = 8 + 0 + 0 + 1 = 9

Если это одно большое число, то вот так

1000000101100001010101001001 = 2^27*1 + 2^26*0 + 2^25*0 + 2^24*0 + 2^23*0 + 2^22*0 + 2^21*0 + 2^20*1 + 2^19*0 + 2^18*1 + 2^17*1 + 2^16*0 + 2^15*0 + 2^14*0 + 2^13*0 + 2^12*1 + 2^11*0 + 2^10*1 + 2^9*0 + 2^8*1 + 2^7*0 + 2^6*1 + 2^5*0 + 2^4*0 + 2^3*1 + 2^2*0 + 2^1*0 + 20*1 = 134217728 + 0 + 0 + 0 + 0 + 0 + 0 + 1048576 + 0 + 262144 + 131072 + 0 + 0 + 0 + 0 + 4096 + 0 + 1024 + 0 + 256 + 0 + 64 + 0 + 0 + 8 + 0 + 0 + 1 = 135664969

^ - Возведение в степень