12 lines
136 B
Text
12 lines
136 B
Text
n=100
|
|
nn=1
|
|
a=0
|
|
For[i=1,i<=n,i++,
|
|
If[i==nn,
|
|
Print["door ",i," is open"];
|
|
a++;
|
|
nn+=2a+1;
|
|
,
|
|
Print["door ",i," is closed"];
|
|
];
|
|
]
|