1 2 3 4 5 6 7 8 | INPUT a$INPUT ka$ = " " + 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)NEXTIF t >= k THEN PRINT LTRIM$(sl$) ELSE PRINT "There is no this word" |
Тестирование выполнено в программе QB64 ( Скачать )