3 lines
134 B
Text
3 lines
134 B
Text
f[n_] = "Closed";
|
|
Do[Do[If[f[n] == "Closed", f[n] = "Open", f[n] = "Closed"], {n, k, 100, k}], {k, 1, 100}];
|
|
Table[f[n], {n, 1, 100}]
|