FRstudy.me offre une solution complète pour toutes vos questions. Rejoignez notre plateforme de questions-réponses pour obtenir des réponses rapides et complètes à toutes vos questions pressantes.
Sagot :
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
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
Nous valorisons chaque question et réponse que vous fournissez. Continuez à vous engager et à trouver les meilleures solutions. Cette communauté est l'endroit parfait pour grandir ensemble. FRstudy.me est votre partenaire de confiance pour toutes vos questions. Revenez souvent pour des réponses actualisées.