Дана произвольная фраза. В новой фразе выделить отдельные, слова.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | INPUT "vvedite frazu ",b$DIM a$(100)b$=" "+b$FOR i=1 TO LEN(b$)IF MID$(b$,i,1)=" "THEN k=k+1 ELSE a$(k)=a$(k)+MID$(b$,i,1)NEXTFOR i=1 TO kFOR j=2 TO kIF LEN(a$(j))>len(a$(j-1))THEN SWAP a$(j),a$(j-1)NEXTNEXTFOR i=1 TO kc$=c$+a$(i)+" "NEXTPRINT c$ |