3 lines
97 B
Text
3 lines
97 B
Text
n=100;
|
|
a=Range[1,Sqrt[n]]^2
|
|
Do[Print["door ",i," is ",If[MemberQ[a,i],"open","closed"]],{i,100}]
|