Удалить все слова на букву w из данного текста

@МарияСтрук · Регистрация: 09.03.2018

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

2. Дана строка слов из латинских букв. Разработать программу, которая будет удалять все слова на букву w с данного текста

@Puporev · 19.04.2018, 15:41

Pascal

const rz=[' ',',','.'];//разделители, можно добавить
var str:string;
    i,j,k:integer;
begin
writeln('Введите строку, содержащую слова начинающиеся на букву w');
readln(str);
str:=' '+str+' ';//добавим пробел в начало и в конец для удобства
i:=2; //начнем со 2 символа
while i<=length(str) do //пока не конец
if (str[i]='w') and(str[i-1] in rz) then//если w, а перед ней разделитель
 begin
  j:=i;
  k:=1;
  while(j<=length(str))and not(str[j] in rz)do //пока не конец строки и не разделитель
   begin
    k:=k+1;//считаем
    j:=j+1;//идем вперед
   end;
  delete(str,i,k);//удаляем слово
 end
else i:=i+1;//иначе на 1 вперед
delete(str,1,1);//удалим первый пробел
writeln(str);
end.

@МарияСтрук 0 / 0 / 1 Регистрация: 09.03.2018 Сообщений: 75
		1
	Удалить все слова на букву w из данного текста 19.04.2018, 14:51. Показов 1159. Ответов 1 Метки нет (Все метки) 2. Дана строка слов из латинских букв. Разработать программу, которая будет удалять все слова на букву w с данного текста 0

	19.04.2018, 15:41

Удалить все слова на букву w из данного текста

Решение