Steady squares: Difference between revisions
Content added Content deleted
(Added Oberon-07) |
(Added Easylang) |
||
Line 807: | Line 807: | ||
625^2 = 390625 |
625^2 = 390625 |
||
9376^2 = 87909376</pre> |
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}}== |
=={{header|Euler}}== |