Найти все слова в строке, начинающиеся на заданную букву
Найти все слова в строке, начинающиеся на заданную букву и удалить из строки все слова, начинающиеся на заданную букву.
var
i:integer;
st:string; {строка }
s:char; {буква }
BEGIN
writeln('Введите строку слов:');
readln(st);
write('Введите букву: ');
readln(s); st:=' '+st; {добавляем пробел в начале строки } repeat {ЦИКЛ } i:=pos(' '+s,st); {ищем слово на букву s } inc(i); {пробел не считаем } if i<>1 then {если слово нашли то } repeat {цикл } write(st[i]); {напечатать букву найденного слова } delete(st,i,1); {удалить эту букву } until (st[i]=' ')or(i=length(st)); {если слово кончилось то конец цикла} writeln;
until i=1; {если больше нет найденных слов то КОНЕЦ ЦИКЛА} writeln('st=',st);
END.
|