Corrigé par Pierre Veuillez

I Simulation

On a besoin de N, pour le nombre total de tirage. De i comme compteurs. De X et Y pour X n et Y n et en fin de T pour les Tirages au hasrad d'un parmi 3 (random(3) qui donne 0, 1 ou 2 comme résultat).

Program tirages;

Var X,Y,N,T,i:integer;

Begin

randomize;

X:=0;Y:=0; {position initiale }

writeln('?'); readln(N);

for i:=1 to N do

Begin

T:=random(3);

if T=0 then if X=0 then X:=1 else X:=0;

{ si X n'est pas à 0 c'est qu'il était à 1 }

if T=1 then if Y=0 then Y:=1 else Y:=0;

writeln(X,Y);

end;

end;