Steady squares: Difference between revisions
→{{header|Chipmunk Basic}}: Added.
m (→{{header|GW-BASIC}}: works with BASICA.) |
(→{{header|Chipmunk Basic}}: Added.) |
||
Line 118:
625 ^ 2 = 390625
9376 ^ 2 = 87909376
</pre>
=== {{header|Chipmunk Basic}} ===
{{trans|GW-BASIC}}
<syntaxhighlight lang="basic">
10 rem Steady squares
20 for n = 1 to 10000
30 m$ = str$(n)
40 n2$ = str$(n*n)
50 if right$(n2$,len(m$)) = m$ then print m$,n2$
60 next n
70 end
</syntaxhighlight>
{{out}}
<pre>
1 1
5 25
6 36
25 625
76 5776
376 141376
625 390625
9376 87909376
</pre>
| |||