Const n=10;
Var a:array[1..n] of integer;
i,k,j:integer;
Begin
Randomize;
For i:=1 to n do
Begin
A[i]:=Random(10);
Write(a[i],' ');
end;
Writeln;
For i:=1 to n do
Begin
If a[i] mod 3=0 then
Write(a[i],' ');
end;
for i:=1 to n-1 do
for j:=1 to n-i do
begin
if (a[j] > a[j+1]) then
begin
k:= a[j];
a[j] := a[j+1];
a[j+1] := k;
end;
end;
writeln;
for i:=1 to n do
write(a[i],' ');
readln;
<span> end.</span>
Пусть р - это вероятность события при котором достается белый карандаш. Тогда 2^i=1/p
но i=4
p=1/16 - вероятность доставания белого карандаша
1/16=х/16 (х- кол-во белых)
Кол-во = 64/16=4 карандаша белого цвета
Рассуждение такое. 9 мегабайт - 240 секунд, а 80 секунд - это в 3 раза меньшее время, значит передастся в 3 раза меньший объем. 9/3 = 3 Мегабайта.
В ответ просто впиши цифру 3