Даны слова а$ и b$. Если их длина четная, удалить 2 средние буквы, если нет одну — PureBasic(Бейсик)

a$ = "1234567"
b$ = "123456"
 
lenA = len(a$) - 1
lenB = len(b$) - 1
a$ = Left$(a$, lenA\2) + Right$(a$, lenA\2)
b$ = Left$(b$, lenA\2) + Right$(b$, lenA\2)
 
Print a$
Print b$

Leave a Comment