He buscado preguntas antiguas y es verdad que dije 1 de 32930 en varios sitios. Todos los sitios donde lo he dicho está mal eso y las probabilidades que he hecho derivar de esa.
Ya he visto donde estuvo el fallo
Primera pregunta
La página web hizo el tonto y me puso en una línea todo el programa, es un fallo de los responsables de la página.
Pero pese a estar todo en una línea lo he podido investigar y una línea decía esto
writeln('Ganadas ',ganadas,aciertos);
Eso esta mal, sobra lo de aciertos, lo que origina es que después del número de ganadas se añada el número de aciertos. Y Pascal si no pones algún espacio en medio escribe los números seguidos. Entonces en vez de números de 3 cifras me salían números de 4 que sume y la probabilidad salió unas 10 veces mayor.
Los números de ganadas auténticos en esa pregunta eran
327
299
297
312
304
299
321
276
259
336
Que suman 3030 sobre 1000.000.000
Y la probabilidad es 0.000003030
Una de cada 330033
Que ya es una cantidad más parecida a la última que te di.
Toma como buenos los datos últimos que te di para 60 extracciones y los que añado ahora:
P(15) = 0.000002915 una de cada 343053
P(14) = 0.000067528 una de cada 14809
P(13) = 0.000698549 una de cada 1432
P(15+1 extra entre 100) = 0.00000002915 una de cada 34.305.300
P(15+2 extras entre 10) = 0.00000006477 una de cada 15.437.393
Y eso es todo, perdona por el fallo. Son cifras que no puedes concebir y te fías de lo que calcula el ordenador sin poder decidir si está bien o mal.
Y eso es todo.