[Grey]

Сообщение от FTRmagic писал

см. изменения, маленькая ошибка была

точный ответ:
1832266800/373464 ~ 1 к 4906.1403

jugaster и Grey
у Вас ошибка в расчетах из-за того, что вы неправильно считаете наборы, т.к. при ваших решениях вы не учли, что набор XX XX YY Вы учитываете несколько раз, поэтому и вероятность у вас больше.

Сообщение от Grey писал 28 мая 2008 18:13

у меня получилось 0.000211489, что близко к приближенной цифре 0.06 в кубе = 0.000216.

When in doubt, use brute force (c) Ken Thompson

procedure TForm1.Button1Click(Sender: TObject);
var
  n, n3p,
  k0, k1, k2, k3, k4, k5: integer;
  p: extended;
begin
  n := 0;
  n3p := 0;
  for k0 := 0 to 50 do
  for k1 := k0 + 1 to 51 do

  for k2 := 0 to 50 do
  if ( k2 <> k0 ) and ( k2 <> k1 ) then
  for k3 := k2 + 1 to 51 do
  if ( k3 <> k0 ) and ( k3 <> k1 ) then

  for k4 := 0 to 50 do
  if ( k4 <> k0 ) and ( k4 <> k1 ) and
     ( k4 <> k2 ) and ( k4 <> k3 ) then
  for k5 := k4 + 1 to 51 do
  if ( k5 <> k0 ) and ( k5 <> k1 ) and
     ( k5 <> k2 ) and ( k5 <> k3 ) then begin
    inc( n );
    if ( k0 mod 13 = k1 mod 13 ) and ( k2 mod 13 = k3 mod 13 )
       and ( k4 mod 13 = k5 mod 13 ) then
      inc( n3p );
  end;
  p := n3p / n;
  memo1.Lines.Add( inttostr( n ) );
  memo1.Lines.Add( inttostr( n3p ) );
  memo1.Lines.Add( floattostr( p ) );
end;

Результат:
1832266800
387504
0.000211488850859493

[FTRmagic]

Grey
только что написал прогу, согласен, я где-то допустил косяк.