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

12 lines
89 B
Text

define i = 0, d = 0
do
let i = i + 1
let d = i * i
print d
loop d < 100
pause
end