GİRİLEN KELİMENİN PALİNDROMİK OLUP OLMADIĞINI TESPİT EDEN PROGRAM

10 REM Palindromik kelime
20 CLS : "Kelime :  ", K$: PRINT
30 KT$ = " " : FOR I = LEN(K$) TO 1 STEP -1
40 KT$ = KT$ + MID$(K$, I, 1) : NEXT I
50 IF K$ = KT$ THEN PRINT "Palindromik"
ELSE PRINT "Palindromik değil"
60 END