<span>8388608 бит = 2^23 бит = 1 Мб
1 Гб = 1024 Мб
Если за секунду передается 1 Мб, то на то, чтобы передать 1024 Мб, необходимо 1024 секунды </span>≈ 17.1 минут<span>.
</span>
Нц
пока справа свободно - закрасить вправо
кц
нц
пока снизу свободно - закрасить <span>вниз
</span>кц
нц
пока слева свободно - закрасить <span>влево
</span><span>кц
</span>нц
пока сверху свободно - закрасить <span>вверх
</span><span>кц
</span>стоп.
Тут надо работать со степениями 2; от 0 до 10 попадают только 2^1=2 (символа), 2^2=4 (символа) и 2^3=8 (символов), из этих вариантов нам подходят 2^2 и 2^4 т.к. символы первого текста кодируются 2 битами, а второго 4 битами (если разделить 4 на 2, то получится 2 - как сказано в задаче), значит в первом тексте 3 символа, во втором 7
Ответ:
program Loto;
var
L: array [1..50] of Integer;
a: array [1..3] of Integer;
i, j, n: Integer;
b: Boolean;
begin
for i := Low (L) to High (L) do
L [i] := i;
Randomize;
for i := 1 to 3 do begin
repeat
n := Random (51) + 1;
until L[n] <> 0;
a [i] := L [n];
L [n] := 0;
end;
for i := 1 to 3 do
Write (a [i], ' ');
ReadLn;
end
Объяснение:
сделана проверка чтобы 3 числа не совпадали друг с другом