Выделить первое слово в заданном тексте- QBasic(Бейсик)

disel 
INPUT "Введите текст: ", text$
firstWord$ = LEFT$(text$, INSTR(text$, " ") - 1)
PRINT "Первое слово в тексте: "; firstWord$

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

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

Leave a Comment