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

input a$
for i=len(a$) to 1 step-1
if mid$(a$,i,1)<>" "then b$=mid$(a$,i,1)+b$ else exit for
next
print b$

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

Leave a Comment