Решенные задачи на языке Паскаль
Условие задачи - из "гостевой книги".
Найти все слова в строке, начинающиеся на заданную букву и удалить из строки все слова, начинающиеся на заданную букву.
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.Скачать исходник