1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | DIM c$(100)INPUT "vvedite frazu ", a$FOR i = 1 TO LEN(a$)b$ = MID$(a$, i, 1) + b$NEXTPRINT "fraza naoborot"PRINT b$b$ = " " + b$FOR i = 1 TO LEN(b$)IF MID$(b$, i, 1) = " " THEN k = k + 1: ELSE c$(k) = c$(k) + MID$(b$, i, 1)NEXTPRINT "slova"FOR i = 1 TO LEN(b$)PRINT c$(i)NEXT |