Задание:
В введенной строке подсчитать количество слов, что одинаково начинаются изаканчиваются (Примечание: Слова в текстовой строке отделены пробелами или группами пробелов.
Решение:
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. Ахах тоже составляли такую, прикольная
Знаете другой ответ?