Символьные переменные и функции.

1.В заданном тексте замените все последовательности повторяющихся символов на один символ и их кол-во, заключенное в скобки.2.Составить программу, подсчитывающую сколько раз в тексте встречается заданный фрагмент.3.Заменить в тексте русские гласные буквы на 1, согласные - на 2, все остальные - на 3.
2 ответа

2.
CLS
  INPUT "Vvedite text: ", A$
  INPUT "Vvedite text dlya poiska: ", B$
IF LEN(A$) > 0 AND LEN(B$) > 0 THEN
  DO: c = c + 1
      c = INSTR(c, A$, B$)
      IF c THEN k = k + 1
  LOOP UNTIL c = 0
  PRINT "vstrechaetsa"; k; "raz"
ELSE PRINT "Text ne vveden!"
END IF


3.
CLS
  LINE INPUT "Vvedite text: ", A$
  S$(0) = "АаЕеЁёИиОоУуЫыЭэЮюЯя"
  S$(1) = "БбВвГгДдЖжЗзЙйКкЛлМмНнПпРрСсТтФфХхЦцЧчШшЩщ"
IF LEN(A$) THEN
  FOR i = 1 TO LEN(A$)
     B$ = MID$(A$, i, 1)
     l = 3 - (SGN(INSTR(S$(0), B$)) * 2 + SGN(INSTR(S$(1), B$)))
     MID$(A$, i, 1) = LTRIM$(STR$(l))
  NEXT
  PRINT "Novyj text: "; A$
ELSE PRINT "Text ne vveden!"
END IF