Определить для строки a$ является ли она симметричной
Категория: Basic
2011-09-26 16:44:48
Вывести строку и результат анализа.
code: #basic
INPUT a$ FOR i=1 TO LEN(a$)\2 IF MID$(a$,i,1)<>mid$(a$,LEN(a$)-i+1,1) THEN f=1 NEXT PRINT a$ IF f=0 THEN PRINT"yes"ELSE PRINT"no"
Поделиться: