Задача 1. Сформировать по строке а$ новую строку по правилу: если слово имеет нечетную длину, удалить в нем среднюю буквуQbasic

Предыдущий
вопрос Следующий
вопрос

Для решения этой задачи можно воспользоваться следующим кодом на QBasic:

CLS
INPUT "Введите строку: ", a$
words = SPLIT(a$, " ")
newString = ""
FOR i = 0 TO UBOUND(words)
word = words(i)
IF LEN(word) MOD 2 <> 0 THEN
middleIndex = INT(LEN(word) / 2) + 1
newWord = LEFT(word, middleIndex - 1) + MID(word, middleIndex + 1)
newString = newString + newWord + " "
ELSE
newString = newString + word + " "
END IF
NEXT
PRINT "Новая строка: "; newString

Этот код разделит введенную строку на отдельные слова, затем проверит каждое слово на четность длины. Если длина слова нечетная, то удалит среднюю букву из него. После этого будет сформирована новая строка и выведена на экран.

Пример работы:

Введите строку: hello world
Новая строка: helo world