Cliquez pour afficher

je trouve: x = 10; 11; 20

 Cliquez pour afficher

 Cliquez pour afficher

0 et 1 ne conviennent pas.

DECLARE FUNCTION Net$ (p AS LONG)
DECLARE FUNCTION Pal$ (t AS STRING)
DECLARE SUB Test (x AS LONG)
DECLARE FUNCTION Test1% (p AS LONG, ord AS INTEGER)
  
  
   DIM SHARED Vrai AS INTEGER, Faux AS INTEGER
    Faux = (0 = 1)
    Vrai = NOT (Faux)
   DIM SHARED Max AS LONG: Max = 5
   DIM SHARED t1(3) AS STRING, t2(3) AS STRING
   DIM i AS LONG

   CLS
    FOR i = 0 TO 40
     CALL Test(i)
    NEXT i
   END



FUNCTION Net$ (p AS LONG)
SHARED Max AS LONG
Net$ = RIGHT$(STRING$(Max, " ") + LTRIM$(RTRIM$(STR$(p))), Max)
END FUNCTION

FUNCTION Pal$ (t AS STRING)
DIM r AS STRING, i AS INTEGER
  r = ""
FOR i = 1 TO LEN(t)
  r = MID$(t, i, 1) + r
NEXT i
Pal$ = r
END FUNCTION

SUB Test (x AS LONG)
SHARED t1() AS STRING, t2() AS STRING
SHARED Faux AS INTEGER, Vrai AS INTEGER
  DIM Txt AS STRING
  DIM i AS INTEGER, rep AS INTEGER: rep = Faux
   IF Test1%(x, 1) AND Test1%(x + 1, 2) AND Test1%(x + 2, 3) THEN
    rep = Vrai
    Txt = Net$(x) + ":"
    FOR i = 1 TO 3
     Txt = Txt + t1(i) + "<=>" + t2(i) + " "
    NEXT i
    PRINT Txt
   END IF
END SUB

FUNCTION Test1% (p AS LONG, ord AS INTEGER)
SHARED t1() AS STRING, t2() AS STRING
SHARED Vrai AS INTEGER, Faux AS INTEGER
DIM rep AS INTEGER: rep = Faux
DIM y AS LONG
DIM ta AS STRING, tb AS STRING
DIM r1 AS DOUBLE, r2 AS DOUBLE
  y = p * p
  ta = Net$(y)
  tb = Pal$(ta)
  y1 = VAL(ta)
  y2 = VAL(tb)
  r1 = SQR(y1)
  r2 = SQR(y2)
  IF r1 = INT(r1) AND r2 = INT(r2) THEN
   t1(ord) = ta
   t2(ord) = tb
   rep = Vrai
  END IF
Test1% = rep
END FUNCTION

 Cliquez pour afficher

ben déjà il faut que ca soit entre 10 et 33, puis ils conviennent parfaitement.

 Cliquez pour afficher

10² = 100    001 = 1²
11² = 121    121 = 11²
12² = 144    441 = 21²
13² = 169    961 = 31²

20² = 400    004 = 2²
21² = 441    144 = 12²    (déjà cité)
22² = 484    484 = 22²


... Et également (cas 'isolés' ou groupés par 2):

26² = 676

30² = 900    009 = 3²    (c'était l'exemple)
31² = 961    169 = 13²    (déjà cité)

33² = 1089    9801 = 99²

 Cliquez pour afficher

99,100,101,110,111,120,200 ... ne conviennent pas non plus

 Cliquez pour afficher

Je pense _{mais je peux me tromper...} que dans ce genre d'énigme, le but est de trouver les nombres qui conviennent, et pas ceux qui ne conviennent pas...!

 Cliquez pour afficher

Je n'ai toujours pas reçu de réponse pour JFF_nombres croisés 11

 Cliquez pour afficher