В последовательности символов, предшествующих символу / заменить каждую из групп стоящих рядом точек одной точкой

Категория: Basic
2011-11-30 15:55:45
code: #basic
INPUT a$
b = INSTR(1, a$, "/"
c$ = MID$(a$, b + 1)
FOR i = b TO 1 STEP -1
IF MID$(a$, i, 1) <> "." OR (MID$(a$, i, 1) = ".") AND (MID$(a$, i + 1, 1) <> ".") THEN c$ = MID$(a$, i, 1) + c$
NEXT
PRINT c$

автор: кот Бегемот

Поделиться:

Похожие статьи:

теги: студенты, работа со строками, последовательность, строки, qbasic, символы