Слова в последовательности символов оканчивающейся символом / отделены друг от друга пробелами, запятыми, точками, точками с запятой, двоеточиями. Распечатать все слова в обратном порядке: первым — последнее слово, вторым предпоследнее и т.д. — Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
LINE INPUT a$
DIM b$(100)
k = 1
FOR i = 1 TO LEN(a$) - 1
c$ = MID$(a$, i, 1)
IF c$ = " " OR c$ = "," OR c$ = "." OR c$ = ";" OR c$ = ":" THEN k = k + 1 ELSE b$(k) = b$(k) + c$
NEXT
FOR i = k TO 1 STEP -1
PRINT b$(i); " ";
NEXT

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

Leave a Comment