x x x = 6 - Mathe Knobelaufgabe

[Pelagio]

Procedure.i Fakultaet(Value.i)
Protected n.i, pResult.i = 1

If Value
For n=2 To Value: pResult * n: Next n
EndIf
ProcedureReturn pResult
EndProcedure

Debug "0 0 0 = 6"
Debug Fakultaet(Fakultaet(0) + Fakultaet(0) + Fakultaet(0))
Debug #NULL$: Debug "1 1 1 = 6"
Debug Fakultaet(1+1+1)
Debug #NULL$: Debug "2 2 2 = 6"
Debug 2+2+2
Debug #NULL$: Debug "3 3 3 = 6"
Debug 3*3-3
Debug #NULL$: Debug "4 4 4 = 6"
Debug Int((4+4)-Sqr(4))
Debug #NULL$: Debug "5 5 5 = 6"
Debug 5+(5/5)
Debug #NULL$: Debug "6 6 6 = 6"
Debug 6+(6-6)
Debug #NULL$: Debug "7 7 7 = 6"
Debug 7-(7/7)
Debug #NULL$: Debug "8 8 8 = 6"
Debug Int(8-Sqr(Sqr(8+8)))
Debug #NULL$: Debug "9 9 9 = 6"
Debug Int(Sqr(9)*Sqr(9)-Sqr(9))