Readln (st);. i:=1; { обработка начинается с первого символа строки}

i:=1; { обработка начинается с первого символа строки}

kol_sl:=0; {до обработки строки количество слов = 0 }

while (i<=length(st)) do {обеспечение перебора всех

символов строки }

Begin

dl_sl:=0; {длина текущего слова}

{ цикл перебора символов текущего слова }

while (i<=length(st)) and (not (st[i] in razd)) do

Begin

dl_sl:= dl_sl+1;

i:=i+1; {переход к очередному символу строки }

End;

if dl_sl > 0

then {было слово} kol_sl:= kol_sl+1;

i:=i+1; {переход к очередному символу строки }

End;

writeln (‘ В строке ‘, st,

‘ обнаружено ‘, kol_sl, ‘слов’);

Readln;

End.

{ Распечатка в столбик слов заданной строки с их номерами}

Program Strings_3;

Var

razd:set of char;

i, {номер обрабатываемого символа }

kol_sl, { количество слов в строке,

оно же – порядковый номер }

dl_sl {длина очередного слова}

: integer;

st, {исходная строка }

wrd {текущее слово }

: string;

Begin

razd:=[' ',',','.',':','!'];

writeln(‘Введите строку для обработки ’);

Readln (st);

i:=1; { обработка начинается с первого символа строки}

kol_sl:=0; {до обработки строки количество слов = 0 }

while (i<=length(st)) do {обеспечение перебора всех

символов строки }

Begin

dl_sl:=0; {длина текущего слова}

wrd:= ‘’; { нач. значение – пустая строка}

{ цикл перебора символов текущего слова }

while (i<=length(st)) and (not (st[i] in razd)) do

Begin

dl_sl:= dl_sl+1;

wrd:= wrd + st[ i ]; {формирование текущего

слова из букв}

i:=i+1; {переход к очередному символу строки }

End;

if dl_sl > 0

Then begin

kol_sl:= kol_sl+1;

writeln (kol_sl, ‘ ‘, wrd);

End;

i:=i+1; {переход к очередному символу строки }

End;

Readln;

End.

{ Поиск палиндромов среди слов заданной строки }

Program Strings_3;

Var

razd:set of char;

i, {номер обрабатываемого символа }

kol_sl, { количество слов в строке,

оно же – порядковый номер }

dl_sl {длина очередного слова}

: integer;

st, {исходная строка }

wrd, {текущее слово }

inv_wrd {инвертированное слово }

: string;

Begin

razd:=[' ',',','.',':','!'];

writeln(‘Введите строку для обработки ’);