Re: Aufgabe::Gib mir Hundert

["Manfred Engelskirchen" <engelskirchen@XXXXXXX.de>]

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