PROGRAM7673.BAS

{* Задачи *}

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User Of
  •  'Задача1' : Uses stzadach1.pas; { Заменить все буквы "а" в предложении на буквы "о" ... }
  •  'Задача10' : Uses zadacht10.pas; { Определить сколько гласных букв в переменной A$ ... }
  •  'Задача11' : Uses zadacht11.pas; { Определить входит ли строка B$ = "dow" в слово 'A$ = "Windows". ... }
  •  'Задача12' : Uses zadacht12.pas; { Заменить все знаки пробел на тире в тексте A$. ... }
  •  'Задача13' : Uses zadacht13.pas; { В тексте A$ после каждого пробела вставить B$ ... }
  •  'Задача15' : Uses zadacht15.pas; { Удалить все запятые в строке A$. ... }
  •  'Задача16' : Uses zadacht16.pas; { В слове A$ все буквы "и" заменить на букву "е" ... }
  •  'Задача17' : Uses zadacht17.pas; { Вывести на экран A$ по отрезкам, расположенным между запятыми (сами запятые не выводить). ... }
  •  'Задача18' : Uses zadacht18.pas; { Поменять местами каждое первое и третье слово A$. Слова разделены одиночными пробелами. Общее количество слов кратно трем. ... }
  •  'Задача19' : Uses zadacht19.pas; { Дан массив фамилий студентов A$(10). Расположить фамилии согласно русского алфавита. Анализируется только первая заглавная буква. ... }
  •  'Задача2' : Uses stzadach2.pas; { Получить предложение в обратном порядке следования символов. ... }
  •  'Задача20' : Uses zadacht20.pas; { Удвоить каждую букву текста ... }
  •  'Задача21' : Uses zadacht21.pas; { Дана произвольная фраза,слова в которой отделяются символами " "; ":" "," Требуется подсчитать кол-во каждого из этих разделительных символов и выделить отдельные слова. ... }
  •  'Задача22' : Uses zadach22.pas; { В исходной строке a$ определить число слов, которые содержат хотябы один символ x$. Вывести исходную строку, результат анализа и соответствующие слова. ... }
  •  'Задача23' : Uses zadach23.pas; { Поиск повторяющихся слов в тексте ... }
  •  'Задача24' : Uses zadach24.pas; { Рассортировать символы исходной фразы по алфавиту в обратном порядке ... }
  •  'Задача25' : Uses zadach25.pas; { В предложении найти слова, последовательности букв (например, abc, nop) ... }
  •  'Задача26' : Uses zadach26.pas; { Даны две строки. Проверить одинаковое ли у них количество символов. ... }
  •  'Задача27' : Uses zadach27.pas; { Вывести на экран слова, содержащие три буквы ... }
  •  'Задача28' : Uses zadach28.pas; { Заменить символы в строке, расположенные между скобками. ... }
  •  'Задача29' : Uses zadach29.pas; { Подсчитать количество шипящих букв в слове ... }
  •  'Задача3' : Uses zadach3.pas; { Заменить все буквы "а" в предложении на буквы "о". ... }
  •  'Задача30' : Uses zadach30.pas; { Выделить первый слог в слове, в котором не менее двух слогов. Заранее спасибо. ... }
  •  'Задача31' : Uses zadach31.pas; { Ввести слово и в слове подсчитать количество согласных букв ... }
  •  'Задача32' : Uses zadach32.pas; { Нужно вставить новое слово в текст из 3-х слов после первого слова. ... }
  •  'Задача33' : Uses zadach33.pas; { Определить, является ли вторая буква в слове гласной или нет. ... }
  •  'Задача34' : Uses zadach34.pas; { В исходном преложении заменить все символы пробела символом тире ... }
  •  'Задача35' : Uses zadach35.pas; { Найти количество слов в фразе ... }
  •  'Задача4' : Uses zadach4.pas; { Получить предложение в обратном порядке следования символов. ... }
  •  'Задача5' : Uses zadach5.pas; { Определить сумму ASCII-кодов символов,составляющих строку a$.Вывести полученное значение и строку b$,состоящую из символов,ASCII-коды которых на заданное число n больше с ... }
Else
 writeln('Ничего не выбрано!');
End;REM basic