Игральный кубик бросается 6 раз, MS Office Excel

[Женяяя]

Игральный кубик бросается 6 раз, MS Office Excel

Игральный кубик бросается 6 раз. Определить вероятность
выпадания суммы очков не менее 20.

 

[Vladimir_S]

Игральный кубик бросается 6 раз. Определить вероятность
выпадания суммы очков не менее 20.

Знаете - как решить такую задачу средствами Excel - я, извините, без понятия. Могу лишь нарисовать программку на Паскале. Пояснение: константа (1/N) есть вероятность выпадения любой наперед заданной комбинации после шести бросаний, то есть число, обратное шести в шестой степени, или 1/46656.

Const
 N=46656;
Var
 i1,i2,i3,i4,i5,i6:Byte;
 p:Real;
Begin
 p:=0;
 for i1:=1 to 6 do
  for i2:=1 to 6 do
   for i3:=1 to 6 do
    for i4:=1 to 6 do
     for i5:=1 to 6 do
      for i6:=1 to 6 do
       if (i1+i2+i3+i4+i5+i6)>19 then p:=p+1/N;
 Writeln(p:0:5);
 Readln
End.

Результат: р = 0.6369

 

[Николай_С]

В Excel-е используется VBA - Visual Basic for Application.
Слабо и его изучить? Он проще Паскаля.

 

[Vladimir_S]

В Excel-е используется VBA - Visual Basic for Application.
Слабо и его изучить? Он проще Паскаля.

Ага - ща! Тогда пусть мне, а не лоботрясам, и дипломы выдают!

 

[Николай_С]

Тогда ладно...
Если что, я в VBA умею...