Este es el programa que use:
program bolas100;{$mode objfpc}{$H+}uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} Classes { you can add units after this };type quince = array[0..14] of boolean;const QuinceFalsas:quince = (false, false, false, false, false, false, false, false, false, false, false, false, false, false, false);var i,aciertos,ganadas,sacadas, bola :integer; Acertadas: quince;begin randomize; ganadas:=0; for i:= 1 to 100000000 do begin Acertadas:= QuinceFalsas; Aciertos:= 0; Sacadas:=0; While (aciertos < 15) and (sacadas <= 60) do begin Bola:=random(100); if (bola < 15) and (not Acertadas) then begin Inc(Aciertos,1); Acertadas:=true; end; Inc(sacadas,1) end; if aciertos = 15 then inc(ganadas,1); end; writeln('Ganadas ',ganadas,aciertos); readln;end.
Y los resultados obtenidos con 10 tandas de 100 millones de sorteos cada una han sido
3276
2997
2977
3127
3047
2995
3216
2769
2597
3366
Si hacemos la suma son
30367
Sobre 1.000.000.000
La probabilidad es
30367 / 1.000.000.000 = 0.000030367
En tanto por ciento es 0.0030367%
Y en proporción es 1 de cada 32.930,48
Si aparte de todo esto se debe acertar el extra la cosa es 100 veces más difícil
Probabilidad = 0.00000030367
En tanto por ciento es 0.000030367%
1 de cada 3.293.048
Y eso es todo.