REPEAT:Y=X:X=RND(10)C=(C+1)*(X==Y)?STR$(X);:UNTIL C==2 続けて同じ数字を表示した回数をカウントして3になったらループを 抜けるようにしました。違う数字だった場合はカウントを0にしています。 省略しても動作するコロンは省略しました。