Сформулировать по исходной строке a$ новую строку b$ по правилу: в каждом слове перенести последнюю букву в начало слова
Категория: Basic
2011-09-16 16:38:10
code: #basic
INPUT a$ FOR i = 1 TO LEN(a$) sp = i DO WHILE MID$(a$, sp, 1) <> " " AND sp <> LEN(a$) + 1 sp = sp + 1 LOOP b$ = b$ + " " + MID$(a$, sp - 1, 1) + MID$(a$, i, sp - i - 1) i = sp NEXT i PRINT b$
Поделиться: