Удалить все слова начинающиеся с буквы

@Кукер · Регистрация: 06.08.2012

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

Удалить из введенного предложения все слова начинающиеся с буквы "s".

@CodeR · 09.08.2012, 10:55

Pascal

Var s,s1,s2:string;
Begin
    write('Введите строку: ');readln(s);
    s:=s+' ';s2:='';
    While Pos(' ',s)<>0 do
     Begin
      s1:=Copy(s,1,Pos(' ',s));
      Delete(s,1,Pos(' ',s));
      if s1[1]<>'s' then s2:=s2+s1;
     End;
    writeln('Полученная строка: ',s2);
    readln;
End.

@Кукер 0 / 0 / 0 Регистрация: 06.08.2012 Сообщений: 10
		1
	Удалить все слова начинающиеся с буквы 09.08.2012, 10:41. Показов 5306. Ответов 1 Метки нет (Все метки) Удалить из введенного предложения все слова начинающиеся с буквы "s". 0

	09.08.2012, 10:55

Опции темы

Удалить все слова начинающиеся с буквы

Решение