Numbers k such that the last letter of k is the same as the first letter of k+1: Difference between revisions
Numbers k such that the last letter of k is the same as the first letter of k+1 (view source)
Revision as of 13:54, 30 June 2023
, 11 months ago→{{header|ALGOL 68}}: Tweak
(Added Algol 68) |
(→{{header|ALGOL 68}}: Tweak) |
||
Line 76:
INT next to show := 1 000;
INT count := 0;
print( ( "The first 50 numbers:", newline ) );
FOR n WHILE count < 1 000 000 DO
INT k = n - 1;
Line 97 ⟶ 98:
FI
FI;
prev end
THEN e99[ n99
ELIF n MOD 1 000
THEN
ELSE
FI
OD
Line 113 ⟶ 110:
{{out}}
<pre>
The first 50 numbers:
0 18 28 38 79 81 83 85 97 102
122 132 142 152 162 172 182 192 208 228
|