Вывести все слова, которые содержат хотя бы одну букву е

@karmen · Регистрация: 23.05.2009

Author24 — интернет-сервис помощи студентам

@Puporev · 19.06.2009, 09:32

Pascal

uses crt;
const rzd=['.',',','?',';',':','!'];{razdeliteli}
var s,s1:string;
    i:byte;
begin
clrscr;
write('Text: ');readln(s);
writeln;
{udalim razdeliteli}
for i:=length(s) downto 1 do
if s[i] in rzd then s[i]:=' ';
{dobavim probel}
s:=s+' ';
{udalim lishnie probely}
while pos('  ',s)>0 do delete(s,pos('  ',s),1);
{vydelyaem slova}
writeln('Iskomye slova: ');
while pos(' ',s)>0 do
  begin
   s1:=copy(s,1,pos(' ',s)-1);
   for i:=1 to length(s1) do
   if s1[i]='e' then
     begin
      write(s1,' ');
      break;
     end;
   delete(s,1,pos(' ',s));
 end;
readln
end.

Новые блоги и статьи
Как узнать директорию bash-скрипта из самого bash-скрипта InfoMaster 20.01.2025 При разработке bash-скриптов одной из важных задач является определение директории, в которой находится исполняемый скрипт. Это критически важно для корректной работы с файлами, загрузки конфигураций. . .	В чем разница между let и var в JavaScript InfoMaster 20.01.2025 JavaScript прошел длинный путь эволюции с момента своего создания в 1995 году. Одним из важнейших аспектов развития языка стало совершенствование механизмов объявления и управления переменными. . . .	Эффективная работа со строками в Go InfoMaster 20.01.2025 Язык программирования Go предлагает уникальный подход к работе со строками, который существенно отличается от многих других языков программирования. В Go строки представляют собой неизменяемые. . .	Как проверить, что отображение (map) содержит ключ в Go InfoMaster 20.01.2025 Отображения (maps) в языке программирования Go представляют собой мощные структуры данных, которые позволяют хранить пары ключ-значение и обеспечивают быстрый доступ к данным по уникальным. . .	Как организовать домашнее хранилище фильмов с общим доступом для всей семьи InfoMaster 20.01.2025 Преимущества домашнего медиасервера В современном мире, где цифровой контент стал неотъемлемой частью нашей жизни, организация домашнего медиасервера становится все более актуальной задачей. . . .	Перспективы развития жестких дисков: есть ли у них будущее? InfoMaster 20.01.2025 История и эволюция жестких дисков История развития жестких дисков начинается в 1956 году, когда компания IBM представила первое устройство для хранения данных на магнитных пластинах - IBM 350. . .
Распознавание изображений (компьютерное зрение) на C++ InfoMaster 20.01.2025 Введение в компьютерное зрение и основы работы с изображениями Компьютерное зрение представляет собой одну из наиболее динамично развивающихся областей информационных технологий, позволяющую. . .	Какой язык программирования лучший для разработки нейронных сетей InfoMaster 20.01.2025 В современном мире технологий искусственные нейронные сети становятся неотъемлемой частью множества инновационных решений, от распознавания речи до автоматического управления транспортными. . .	Как подключить JavaScript файл в другом JavaScript файле InfoMaster 20.01.2025 В современной веб-разработке организация кодовой базы играет ключевую роль в создании масштабируемых и поддерживаемых приложений. Модульность и правильное структурирование кода стали неотъемлемыми. . .	Как откатить изменения в исходниках, не внесенные в Git InfoMaster 20.01.2025 При работе с системой контроля версий Git разработчики часто сталкиваются с необходимостью отменить внесенные изменения в исходном коде. Особенно актуальной становится ситуация, когда изменения еще. . .	В чем разница между px, in, mm, pt, dip, dp, sp InfoMaster 20.01.2025 В мире цифрового дизайна и разработки интерфейсов правильный выбор единиц измерения играет ключевую роль в создании качественного пользовательского опыта. История развития систем измерений для. . .	Как изменить адрес удалённого репозитория (origin) в Git InfoMaster 20.01.2025 В терминологии Git термин origin является стандартным именем для основного удаленного репозитория, с которым взаимодействует локальная копия проекта. Когда разработчик клонирует репозиторий с. . .

@karmen 0 / 0 / 0 Регистрация: 23.05.2009 Сообщений: 7
		1
	Вывести все слова, которые содержат хотя бы одну букву е 19.06.2009, 08:46. Показов 2579. Ответов 1 Метки нет (Все метки) Вывести все слова, которые содержат хотя бы одну букву е 0

	19.06.2009, 09:32

Опции темы

Вывести все слова, которые содержат хотя бы одну букву е

Решение