Odd and square numbers: Difference between revisions
Add FOCAL
Not a robot (talk | contribs) (Add BASIC) |
Not a robot (talk | contribs) (Add FOCAL) |
||
Line 215:
n:=Oddsq(i);
od;</lang>
=={{header|FOCAL}}==
<lang focal>01.10 S N=10
01.20 S S=N*N
01.30 I (1000-S)1.8
01.40 I (FITR(S/2)*2-S)1.5,1.6
01.50 T %3,S,!
01.60 S N=N+1
01.70 G 1.2
01.80 Q</lang>
{{out}}
<pre>= 121
= 169
= 225
= 289
= 361
= 441
= 529
= 625
= 729
= 841
= 961</pre>
=={{header|FreeBASIC}}==
| |||