Из заданного предложения ,начиная с первой встретившейся буквы А ,скопировать в новую строчку все символы до первой встретившейся буквы Я. Напечатать исходный текст и полученную строку- QBasic(Бейсик)

disel
1
2
3
4
5
6
INPUT "Введите предложение: ", text$
startPos = INSTR(text$, "А")
endPos = INSTR(text$, "Я")
newText$ = MID$(text$, startPos, endPos - startPos + 1)
PRINT "Исходный текст: "; text$
PRINT "Полученная строка: "; newText$

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment