Вот, получилось 2 решения, но я перепроверил, правильно, вроде, не знаю, почему их двое..)
011.000.111(2)=307(8) (см.фото)
1100.0111(2)=С7(16) (см.фото)
7 6 5 4 3 2 1 0
1 1 0 0 0 1 1 1 = 1•2^0+1•2^1+1•2^2+1•2^6+1•2^7=1+2+4+64+128=199(10)
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>
Если числа от 1-10 то нужно
(1+2+3+4+5+6+7+8+9+10):10=