Readln (st);

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

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

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

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

Begin

if (not (st[i] in razd))

then kol_sym:= kol_sym +1;

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

End;

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

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

Readln;

end.

{ Определение количества слов в строке. Использование флажка}

Program Strings_2;

Var

razd: set of char; {множество предполагаемых

разделителей слов в строке }

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

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

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

:integer;

st:string; { исходная строка }

fl: Boolean; {индикатор – слово найдено или нет }

Begin

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

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

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

Readln (st);

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

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

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

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

Begin

fl:= false; {пока слово не обнаружено }

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

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

Begin

fl:= true; {слово обнаружено }

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

End;

if fl = true

then kol_sl:= kol_sl+1;

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

End;

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

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

Readln;

End.

{ Определение количества слов в строке. Использование длины слова}

Program Strings_2a;

Var

razd:set of char; {множество предполагаемых

разделителей слов в строке }

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

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

dl_sl { длина слова }

:integer;

st,st1,max,min:string;

Begin

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

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

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