const
m = 20;
var
arr: array[1..m] of integer;
i, j, k,r: integer;
begin
for i := 1 to m do begin
arr[i] := random(256);
end;
for i := 1 to m-1 do
for j := 1 to m-i do
if arr[j] > arr[j+1] then begin
k := arr[j];
arr[j] := arr[j+1];
arr[j+1] := k
end;
write (arr[20]);
readln
end.
Все расчеты аналогичны тем, что даны в примере.
а) в системе 20 элементов и она допускает разбиение на 5 подсистем по 4 элемента в каждой;
Всего связей 20·19 = 380.
При разбиении на 5 подсистем по 4 элемента в каждой:
Число связей между подсистемами 5·4 = 20, число связей внутри каждой подсистемы – 4·3 = 12. Всего 20 + 5·12 = 80 связей
б) в системе 100 элементов и она допускает разбиение на 10 подсистем по 10 элементов в каждой.
Всего связей 100·199 = 19900.
При разбиении на 10 подсистем по 10 элементов в каждой:
Число связей между подсистемами 10·9 = 90, число связей внутри каждой подсистемы – 10·9 = 90. Всего 90 + 10·90 = 990 связей
Как-то так
const x0=0; x1=180; dx=1;
var x:real;
begin
x:=x0;
while x<=x1 do
begin
writeln(x,' ',x/180*pi);
x:=x+dx;
end;
<span>end.</span>
74 в двоичной будет <span>1001010
91 в двоичной будет </span><span>1011011
Для того чтобы понять как это вышло, попробуйте любое из чисел делить постоянно на 2
Если требовалось вычесть 74-91, то вышло бы -17, что в двоичной системе выглядит как: </span><span>-10001</span>