Сообщение содержит 36 символов, т.е. скорость передачи 36/0.00001 = 3.600.000 символов в секунду, после чего можно говорить, что некорректно задан вопрос,т.к. не указана кодировка символов. Если она указана, то 3.600.000 умножаешь на количество бит, которыми кодируется символ
Var b:array[1..10,1..3] of integer;
i,j,k,s,gi,bo:integer;
begin
writeln('Исходный массив: ');
for i:=1 to 10 do
for j:=2 to 3 do b[i,j]:=random(30);
k:=1;
for i:=1 to 10 do begin
for j:=1 to 3 do
b[i,1]:=k;
inc(k);
end;
for i:=1 to 10 do begin
for j:=1 to 3 do write(b[i,j]:5);
writeln;
end;
for i:=1 to 10 do
for j:=2 to 3 do
s:=s+b[i,j];
write(' Всего сотрудников в учреждении: ',s);
for i:=1 to 10 do
gi:=gi+b[i,2];
write(' Женщин в учреждении: ',gi);
for i:=1 to 10 do
bo:=bo+b[i,3];
write(' Мужчин в учреждении: ',bo);
if (gi>bo) then write(' женщин больше')
else write(' мужчин больше');
if (gi=bo) then write(' женщин и мужчин одинаковое количество');
<span>end.</span>
Обозначим искомое количество килобайт как Х.
100 Кб:1536 бит = Х Кб:768 бит.
Х = (100*768):1536 = 50.
Ответ: 50 Кб.
Было - 6,8, при перемещении стало - 6. Ответ: 3 (0,8)
Управляющий объект: Человек
Объект управления 1: Кнопка
Объект управления 2: Часы
Цель управления: Вовремя дать звонок учащимся