//PascalABC.NET версия 3.4.0.1677 от 17.06.18
//Если программа не запускается, то обновите версию
const
m = 99;
var
n,i, j: integer;
A,: Array[1..m] of integer;
begin
Randomize;
write('n = ');
readln(n);
for i := 1 to n do
begin
repeat
j := Random(n) + 1
until A[j] = 0;
A[j] := i;
end;
for i := 1 to n do
write(A[i]:3);
writeln;
end.
program summa;
var
i, n:integer;
s, k:real;
begin
writeln('введите число n=');
read(n);
s:= 0;
k := 0;
for i := 1 to n do
begin
k:= k + sin(i);
s:= s + 1/k;
end;
writeln('Сумма S= ',s:0:2);
readln;
end.
Учитываем что 11111111 в двоичной, это 255 десятичной
1) Черный
2) Красный
3) Зелёный
4) Синий
5) Сине-зелёный (Циан)
6) Сине-красный (Пурпурный)
7) Красно-зелёный (Жёлтый)
8) Белый
Все расчеты аналогичны тем, что даны в примере.
а) в системе 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 связей
