Egy érdekes (de azért nem túl bonyolult) programozási feladat:
Keresünk 4 db olyan 4 jegyű, egymás után következő számot, melyek oszthatóak a jegyeik összegével (a feladat a HPmuseum.org fórumán jelent meg, és a Számológép Fórumon is szóba került).
Saját, Casio Basic nyelvű megoldásom:
{1,1,1,1 -> List 1;
For 1-> A To 9
For 0-> B To 9
For 0-> C To 9
For 0-> D To 9
List 1[2 -> List 1[1
List 1[3 -> List 1[2
List 1[4 -> List 1[3
1000A + 100B + 10C + D -> N
A+B+C+D -> S
Frac(N / S -> List 1[4
If 0 = Max(List 1
Then N - 3 ki
N - 2 ki
N - 1 ki
N ki
IfEnd
Next
Next
Next
Next
