Square but not cube: Difference between revisions
Content added Content deleted
(Added solution for Action!) |
Not a robot (talk | contribs) (Add Comal) |
||
Line 797: | Line 797: | ||
1024 |
1024 |
||
1089</pre> |
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}}== |
=={{header|Commodore BASIC}}== |