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

В введенной строке подсчитать количество слов, что одинаково начинаются и заканчиваются
(Примечание: Слова в текстовой строке отделены пробелами или группами пробелов.

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

program z_string; 
uses crt; 
const Letters = [a..z,A..Z,а..я,А..Я]; 
var StringS, Symbol :string; 
     CounterI, Number:byte; 
begin

 clrscr; 
 writeln(Введите строку текста); 
 readln(StringS); 
  
 Number := 0; 
 Symbol := ; 
for CounterI := 1 to length(StringS) do 
 begin 
  if (StringS[CounterI] in Letters) and (Symbol = ) then 
   Symbol := StringS[CounterI]; 
    
  if (not(StringS[CounterI] in Letters)) and (CounterI <> 1) then 
  begin 
   if StringS[Counteri - 1] = Symbol then 
    inc(Number); 
   Symbol := ;
  end; 
   
  if (CounterI = length(StringS)) and (StringS[CounterI] = Symbol) then 
   inc(Number); 
 end; 
  
 writeln; 
 writeln(Количество слов начинающихся и заканчивающихся одной и той же буквой , Number); 
 readln; 
end.

ахах тоже составляли такую,прикольная;)