Вывести слово с номером K заданного предложения — QBasic(Бейсик)

INPUT a$
INPUT k
a$ = " " + a$
FOR i = 1 TO LEN(a$)
    IF MID$(a$, i, 1) = " " THEN t = t + 1
    IF t = k THEN sl$ = sl$ + MID$(a$, i, 1)
NEXT
IF t >= k THEN PRINT LTRIM$(sl$) ELSE PRINT "There is no this word"

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

Leave a Comment