RosettaCodeData/Task/100-doors/PureBasic/100-doors-2.basic
2023-07-01 13:44:08 -04:00

9 lines
161 B
Text

OpenConsole()
PrintN("Following Doors are open:")
For i = 1 To 100
root.f = Sqr(i)
If root = Int(root)
Print (Str(i) + ", ")
EndIf
Next
Input()