Odd and square numbers: Difference between revisions
Add BASIC
Not a robot (talk | contribs) (Add CLU) |
Not a robot (talk | contribs) (Add BASIC) |
||
Line 81:
Odd and square numbers 100-999: 11
</pre>
=={{header|BASIC}}==
<lang basic>10 DEFINT A-Z
20 N=10
30 S=N*N
40 IF S>=1000 THEN END
50 IF S AND 1 THEN PRINT S
60 N=N+1
70 GOTO 30</lang>
{{out}}
<pre> 121
169
225
289
361
441
529
625
729
841
961</pre>
=={{header|BQN}}==
| |||