Var d,k,r: integer;
begin
writeln('Введите цену за 100г: ');
readln (k);
for d:=1 to 10 do
begin
r:=d*k;
writeln(d*100, 'г=', r, 'руб');
end;
<span>end.</span>
Все расчеты аналогичны тем, что даны в примере.
а) в системе 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 связей
If a div 10 ???? нет условия. нужно
if (a div 10)mod 10 <> 0 then....
начало
/ \
d:=a+b e:=a-2d
\ /
\ e:=c:e
\ /
d:=d-e
не знаю, но моё мнение такое. это больше похоже на программный алгоритм. блоки я уже позабыл