//PascalABC.NET версия 3.3.1590 от 03.12.2017
//Если программа не запускается, то обновите версию
uses System;
begin
var a := ArrRandomInteger(100, -100, 100);
Println(a);
var max := a.Max();
a[a.IndexMax()] := 0;
max := max * a.Max();
var min := a.Min();
if (min < 0) then begin
a[a.IndexMin()] := 0;
min := min * a.Max();
end;
writeln(Math.Max(max, min));
end.
1) N = 2^i
64 = 2^i
i = 6 бит - глубина кодирования 1 символа в 64-символьном алфавите
2) 720 байт = 720 * 8 = 5760 бит - информационный объем всего сообщения
3) 5760 бит / 6 бит = 960 символов во всем сообщении
4) 960 / 4 страницы = 240 символов на 1 странице
5) 240 / 40 строк = 6 символов в одной строке
Ответ: 6 символов в одной строке.
1) Name: aray[1..10] of integer;
3)scr(1) scr(2) ...
4) Program Name;
uses crt;
var a,b,c:integer;
BEGIN
b:=0;
for a:=1 to 100 do
begin
b:=b+a;
end;
write ('Vash resultat =', b);
readln;
<span>END.
</span>
Размер файла = 512000*5*60 бит = 512000*5*60 / 8 байт =
512000*5*60 /(8*1024) Кбайт = 18750 Кбайт
Все расчеты аналогичны тем, что даны в примере.
а) в системе 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 связей