Odd and square numbers: Difference between revisions
Add BCPL
Not a robot (talk | contribs) (Add Modula-2) |
Not a robot (talk | contribs) (Add BCPL) |
||
Line 102:
841
961</pre>
=={{header|BCPL}}==
<lang bcpl>get "libhdr"
let start() be
$( let n = 10
$( let sq = n * n
if sq >= 1000 then finish
if sq rem 2 = 1 then writef("%N*N", sq)
n := n + 1
$) repeat
$)</lang>
{{out}}
<pre>121
169
225
289
361
441
529
625
729
841
961</pre>
=={{header|BQN}}==
| |||