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

7 lines
154 B
Text

' version 16-06-2021
' portado desde Julia
For i As Integer = 1 To 10
If (i Mod i^2) < 11 Then Print "La puerta"; i^2; " esta abierta"
Next i
Sleep