Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Пожалуйста ! Очень нужно!
Дана строка S, состоящая из слов, разделённых пробелами, и буква c.
Выведите все слова из S, которые начинаются с буквы c. ПАСКАЛЬ

Ответ оставил Гость

Var
  s,subs:string;
  c:char;
  i,n,p:integer;
begin
  Writeln(Введите последовательность слов, разделенных пробелом);
  Readln(s);
  s:= +s+ ;
  Write(Введите искомый символ: ); Readln(c);
  subs:= +c;
  n:=Length(s);
  repeat
    p:=Pos(subs,s);
    if p>0 then begin
      i:=p+2;
      while (s[i]<> ) and (i<=n) do i:=i+1;
      Write(Copy(s,p+1,i-p-1), )
    end;
    if i<=n then s:=Copy(s,i,n-i+1)
  until p=0 
end.

Тестовое решение:
Введите последовательность слов, разделенных пробелом
а роза упала на лапу азора
Введите искомый символ: а
а азора