Square but not cube: Difference between revisions
Add Comal
(Added solution for Action!) |
Not a robot (talk | contribs) (Add Comal) |
||
Line 797:
1024
1089</pre>
=={{header|Comal}}==
<lang comal>0010 ZONE 5
0020 cube_n#:=0;square_n#:=0;seen#:=0
0030 WHILE seen#<30 DO
0040 WHILE cube_n#^3<square_n#^2 DO cube_n#:+1
0050 IF cube_n#^3<>square_n#^2 THEN
0060 PRINT square_n#^2,
0070 seen#:+1
0080 IF seen# MOD 5=0 THEN PRINT
0090 ENDIF
0100 square_n#:+1
0110 ENDWHILE
0120 END</lang>
{{out}}
<pre>4 9 16 25 36
49 81 100 121 144
169 196 225 256 289
324 361 400 441 484
529 576 625 676 784
841 900 961 1024 1089</pre>
=={{header|Commodore BASIC}}==
| |||