Найти в тексте буквы A..F, X..Z - Pascal ABC

Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.71/7:

@Милена11 0 / 0 / 0 Регистрация: 23.11.2012 Сообщений: 29

	Найти в тексте буквы A..F, X..Z 13.12.2012, 22:25. Показов 1369. Ответов 1 Метки нет (Все метки) 5).дан набор слов, оканчивающийся точкой. Найти в тексте буквы A..F, X..Z, И РАСПЕЧАТАТЬ 0

Лучшие ответы (1)

Сообщение: #3859028

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

13.12.2012, 22:25

Ответы с готовыми решениями:

найти в тексте все гласные буквы
Всем привет, подскажите как реализовать данную задачку, найти в тексте все гласные буквы

Найти количество введённой буквы в тексте
Помогите пожалуйста решить задачу (язык HTML): Вводится текст в многострочное текстовое поле (textarea). В однострочное поле вводится...

Найти слова в тексте, не содержащие указанные буквы.
1 Дан текст на русском языке и не которые две буквы. Найти слова не содержащее указанные буквы. 2 Дан строка, подсчитать сколько...

CodeR

Фрилансер

3418 / 2815 / 3000

Регистрация: 08.02.2012

Сообщений: 8,603

Записей в блоге: 1

15.12.2012, 10:20

Сообщение было отмечено Милена11 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
Var s:string;
    i:byte;
Begin
    write('Введите текст: ');readln(s);
    For i:=1 to Length(s) do
     if (s[i] in ['A'..'F'])or(s[i] in ['X'..'Z']) then write(s[i],' ');
    readln;
End.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

15.12.2012, 10:20

Помогаю со студенческими работами здесь

Найти в тексте слова, длина которых 4 буквы
Задача: считать текст из файла и вывести на экран слова, длина которых 4 буквы. Сосчитать их количество. Вот у меня код такой: ...

Найти в тексте количество слов, начинающихся с буквы «а»
Помогите пожалуйста найти еще а) и в) Дан текст. а) Найти количество слов, начинающихся с буквы «а». б) Найти количество слов, в...

Найти, сколько раз встречаются буквы в тексте из файла
Всем привет) Пожалуйста помогите с программой, очень срочно. Нам нужно найти сколько раз в заданном тексте из файла встречается 1 буква или...

Найти максимальное повторение гласной и согласной буквы в тексте
Помогите..пока буквы были строчными работала, использовал UpCase выдает только гласные. Исправьте, пожалуйста uses crt; const sog=; ...

Найти, какие буквы и сколько раз встречаются в тексте
Дана задачка: Строка, содержащая произвольный русский текст. Найти, какие буквы и сколько раз встречаются в этом тексте. В ответе буквы...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip

Наверх