| Frühere | Chronologischer Index | Spätere | ||
| Vorherige | Thematischer Index | Nächste | 
Hallo ,
ich habe eine Lösung mit +,-  von 2 bis n gefunden:
 
 
lösung[n_]:=Map[#
Range[2,n]&,Select[Tuples[{-1,1},n-1],(#.Range[2,n]==n)&]]
 
Gruß Manfred Engelskirchen
| Frühere | Chronologischer Index | Spätere | ||
| Vorherige | Thematischer Index | Nächste | 
 DMUG-Archiv, http://www.mathematica.ch/archiv.html
 DMUG-Archiv, http://www.mathematica.ch/archiv.html