Corrigé EDHEC 2004 par Pierre Veuillez

Dans le programme, k est le compteur de lancers, et Z la variable aléatoire.
On effectue des lancers jusqu'à ce que l'on ait pile (lancer = 1) ou que l'on ait effectué n lancers or (k = n).

Si on obtient pile, (lancer = 1) alors Z est affecté du nombre de lancers effectués (z := k), sinon, il conserve sa valeur initiale (z := 0)

Enfin, le nombre maximal de lancer n est saisit au clavier par Readln(n).

Program EDHEC2004 ;

var k, n, z, lancer : integer ;

Begin

Randomize ;

Readln(n) ; k := 0 ; z := 0 ;

Repeat

k := k + 1 ; lancer := random(2) ;

If (lancer = 1) then z := k ;

until (lancer = 1) or (k = n) ;

Writeln (z) ;

end.