hawk respondió:
Te envío el código no sé si te servirá para la versión 5.0 de Q-BASIC. INPUT "INTRODUCE PALABRA: ", s1$ s2$ = "" FOR i%=LEN(s1$) TO 1 STEP -1 s2$ = s2$ + MID$(s1$, i%, 1) NEXT i% IF s1$ = s2$ THEN PRINT "ES PALINDROMO" ELSE PRINT "NO ES PALINDROMO" END IF