Вчем преимущество магистральной структуры компьютера?

При наличии таких разъемов можно подключать дополнительную аппаратуру к уже имеющемуся компьютеру, вместо того чтобы приобретать новый компьютер)

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! function res(a: integer; op: char; b: integer): integer; begin   case op of   '+': result: =a+b;   '-': result: =a-b;   '*': result: =a*b;   '/': result: =a div b   end end; begin   var s: =readlnstring('вводите: ');   var p: =s.matches('+)|[\+\-\*\/])').toarray;   if p.count< > 5 then writeln('ошибка! ')   else begin       var op1: =p[1].value[1];       var op2: =p[3].value[1];       var a: =p[0].value.tointeger;       var b: =p[2].value.tointeger;       var c: =p[4].value.tointeger;       if (op1 in ['+','-']) and (op2 in ['*','/']) then           writeln('='+res(res(b,op2,c),op1,a))       else writeln('='+res(res(a,op1,b),op2,c))       end end. примеры вводите: -4--3--2 =1 вводите: 12*3+45 =81 вводите: 45+12*3 =81 вводите: -26/13--5 =3

Const     m = 3;     n = 4; var     a: array[1..m,1..n] of real;     i,j: integer;     s: real; begin randomize; for i: = 1 to m do       begin       s: =0;       for j: = 1 to n do               begin               a[i,j]: =random*13;               write(a[i,j]: 6: 3,' ');               s: =s+a[i,j];               end;       writeln('  sr = ',s/n: 0: 3);       end; end.