1 2 3 4 5 6 7 8 9 10 11 12 | LINE INPUT "Кандидат в палиндромы? "; p$l$ = "абвгдежзийклмнопрстуфхцчшщъыьэюя"u$ = "АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ"m$ = " :,.+-;*?/\|~'`!@#$^&()[]{}%=" + CHR$(34) FOR t = 1 TO LEN(p$) q$ = MID$(p$, t, 1) ln = INSTR(l$, q$) IF ln > 0 THEN q$ = MID$(u$, ln, 1) ELSE IF INSTR(m$, q$) > 0 THEN q$ = "" a1$ = a1$ + q$: a2$ = q$ + a2$NEXTIF a1$ = a2$ THEN PRINT "Палиндром!" ELSE PRINT "Не палиндром." |