RosettaCodeData/Task/100-doors/PureBasic/100-doors-2.purebasic
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07: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()