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

1
2
3
4
5
6
7
8
9
10
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