Coucou à tous! Trouver tous les quadruplets d’entiers strictement positifs (a, b, c, d) tels que a + b + c + d = 2013 et tels que chacun des nombres a, b, c, d

pas de solution existante, il y a 0 possibilité, car contraposée des signes.

Bonsoir,
je confirme :
pas de solution
DATA 1,3,11,33,61,183,671,2013
CONST nb = 8
DIM donnee(nb) AS LONG
DIM i1 AS INTEGER, i2 AS INTEGER, i3 AS INTEGER, i4 AS INTEGER, i AS INTEGER
DIM s AS LONG
FOR i = 1 TO nb: READ donnee(i): NEXT i

FOR i1 = 1 TO nb
    FOR i2 = 1 TO nb
        FOR i3 = 1 TO nb
            FOR i4 = 1 TO nb
                s = donnee(i1) + donnee(i2) + donnee(i3) + donnee(i4)
                'PRINT s;
                IF s = 2013 THEN
                    k = k + 1
                    PRINT k, donnee(i1); donnee(i2); donnee(i3); donnee(i4);
                END IF
            NEXT i4
        NEXT i3
    NEXT i2
NEXT i1
END