Steady squares: Difference between revisions
Added Easylang
(Added Oberon-07) |
(Added Easylang) |
||
Line 807:
625^2 = 390625
9376^2 = 87909376</pre>
=={{header|EasyLang}}==
<syntaxhighlight>
func steady n .
mask = 1
d = n
while d > 0
mask *= 10
d = d div 10
.
return if n * n mod mask = n
.
for i = 1 to 9999
if steady i = 1
print i & " * " & i & " = " & i * i
.
.
</syntaxhighlight>
{{out}}
<pre>
1 * 1 = 1
5 * 5 = 25
6 * 6 = 36
25 * 25 = 625
76 * 76 = 5776
376 * 376 = 141376
625 * 625 = 390625
9376 * 9376 = 87909376
</pre>
=={{header|Euler}}==
| |||