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

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