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

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

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

Var s,sw: string;
      i,j,bst: integer;
begin
    s:=строка для решения арба еле реестр; 
    bst:=1;  sw:=;  write(строка для поиска - ); 
    writeln(s);
    for i:=1 to length(s) do
    begin
      if (Ord(s[i])=32) then
      begin
         if (s[bst]=s[i-1]) then
         begin 
            for j:=bst to i-1 do sw:=sw+s[j];         
            writeln(найдено слово - ,sw);
             sw:=;   
         end;
         bst:=i+1;   
      end;  
   end;
   if (s[bst]=s[length(s)]) then
   begin
      for i:=bst to length(s) do sw:=sw+s[i];   
      writeln(найдено слово - ,sw);  
  end;
end.