Citation :
\documentclass[12pt]{article}

\usepackage{ifthen}
\usepackage{calc}
\usepackage[first=1, last=3, counter=nombreAuHasard]{lcg}

\usepackage[latin1]{inputenc}
\usepackage[T1]{fontenc}
\usepackage[frenchb]{babel}

\setlength\parindent{0pt}
\begin{document}

\newcounter{nbExperiences}
\newcounter{nbPersonnesAyantDejaGagneUnLot}
\newcounter{personneNumero}
\newcounter{billetNumero}
\newcounter{nbPersonnesNayantGagneAucunLot}
\newboolean{dejaUnBilletAvecTete}
\newboolean{dejaUnBilletAvecCorps}
\newboolean{dejaUnBilletAvecMembresInf}

\setcounter{nbExperiences}{1}
\whiledo{\thenbExperiences < 11}{
\setcounter{nbPersonnesAyantDejaGagneUnLot}{0} % sera incremente a chaque fois que qqun gagne un lot
\setcounter{personneNumero}{1}
\whiledo{\thepersonneNumero < 1001}{
\setcounter{billetNumero}{1} % sera incremente a chaque billet examine (jusqu'à 10)
\setboolean{dejaUnBilletAvecTete}{false}
\setboolean{dejaUnBilletAvecCorps}{false}
\setboolean{dejaUnBilletAvecMembresInf}{false}
\whiledo{ \( \thebilletNumero < 11 \) \AND \( \NOT \( \boolean{dejaUnBilletAvecTete} \AND \boolean{dejaUnBilletAvecCorps} \AND \boolean{dejaUnBilletAvecMembresInf} \) \) }{
\rand % met un nombre au hasard (1, 2 ou 3) dans nombreAuHasard
\ifthenelse{\thenombreAuHasard = 1}{
\setboolean{dejaUnBilletAvecTete}{true}
}{
\ifthenelse{\thenombreAuHasard = 2}{
\setboolean{dejaUnBilletAvecCorps}{true}
}{
\setboolean{dejaUnBilletAvecMembresInf}{true}
}
}
\addtocounter{billetNumero}{1}
}
\ifthenelse{\boolean{dejaUnBilletAvecTete} \AND \boolean{dejaUnBilletAvecCorps} \AND \boolean{dejaUnBilletAvecMembresInf}}{
\addtocounter{nbPersonnesAyantDejaGagneUnLot}{1}
}{}
\addtocounter{personneNumero}{1}
}
\setcounter{nbPersonnesNayantGagneAucunLot}{1000 - \value{nbPersonnesAyantDejaGagneUnLot}}
Nombre de personnes ayant gagne un lot : \thenbPersonnesNayantGagneAucunLot\\
\addtocounter{nbExperiences}{1}
}

\end{document}