Около 10 МБ.
Решение:
44100*2*60*16/8/1024/1024.
Посчитай на калькуляторе если нужна точность.
Скорость передачи равна 32Кбит/с = 4Кбайт/с
Время = 15с
Один символ = 8бит = 1байт
На одной странице 48 символов
1) 4Кбайт/с*15с = 60Кбайт - вес документа
2) 60Кбайт/(1Байт*48) = 1250 - страниц
Var arr:array [1..6] of integer;i,k,x,s,d,j:integer;beginrandomize;d:=0;for j:=1 to 1000 dobeginfor i:=1 to 6 do arr[i]:=1;k:=1;s:=1;while k<>0 do begin x:=random(6)+1; arr[x]:=0; if (arr[1]=0) and (arr[2]=0) and (arr[3]=0) and (arr[4]=0) and(arr[5]=0) and (arr[6]=0) then k:=0; s:=s+1; end;d:=d+s; end;Writeln('В среднем цикл отработал ',d/1000,' раз'); end.
В среднем цикл отработал 15.946 разПри многократном запуске<span> получается около </span><span>16 раз</span>
<span>106
function f(x: integer): integer;
var
L, M: integer;
begin
L := x - 12;
M := x + 12;
while L <> M do
if L > M then
L := L - M
else
M := M - L;
f := L;
end;
begin
var x := 100;
var r := 0;
repeat
x := x + 1;
r := f(x);
until r = 2;
writeln(x);
end.
</span>