Обмен информацией между частями компьютера. Укажите правильный вариант расположение частей 1. Процессор 2. Системная шина 3. Устройства вывода 4. Внешняя память 5. Внутренняя память 6. Устройство ввода
1.Системная шина 2. Процессор 3. Внутренняя память 4. Внешняя память 5.Устройства вывода 6. Устройство ввода
1.Внешняя память 2. Процессор 3. Внутренняя память 4. Системная шина 5.Устройства ввода 6. Устройство вывода
1.Процессор 2.Внутренняя память 3. Внешняя память 4. Устройство ввода 5.Устройства вывода 6. Системная шина

Var a,b,c,p,s: real; m: integer; begin   repeat     writeln('a,b,c & ');       readln(a,b,c); {вводим стороны до тех пор пока не выполнится условие сущ треуг}   until (a< b+c)and(b< a+c)and(c< a+b);     writeln('площадь - введите  1 или периметр -2  ? '); {выбираем что считать, если площадь, то вводим 1, периметр - 2} readln(m);       case m of           1:         begin             p: =(a+b+c)/2;             writeln('s =  ',sqrt(p*(p-a)*(p-b)*(p-; {вывод площади}         end;       2: writeln(a+b+c); {вывод периметра}       end; end.       программа 2 нахождение суммы элементов одномерного массива const n=10; var a: array[1..n]of integer; i,s: integer; begin     for i: =1 to n do           begin               a[i]: =random(100); {заполнение массива случайными числами [0.100)}               write(a[i]: 4); {выводим на экран массив}               s: =s+a[i];   {считаем сумму}           end; writeln; writeln('s=  ',s); {выводим сумму} end.