Var s,subs:string; c:char; i,n,p:integer; begin Writeln('Введите последовательность слов, разделенных пробелом'); Readln(s); s:=' '+s+' '; Write('Введите искомый символ: '); Readln(c); subs:=' '+c; n:=Length(s); repeat p:=Pos(subs,s); if p>0 then begin i:=p+2; while (s[i]<>' ') and (i<=n) do i:=i+1; Write(Copy(s,p+1,i-p-1),' ') end; if i<=n then s:=Copy(s,i,n-i+1) until p=0 end.
Тестовое решение: Введите последовательность слов, разделенных пробелом а роза упала на лапу азора Введите искомый символ: а а азора
ну, насчет царя и бога - это другое лицо на любом предприятии, сейчас технологи ведут непрерывную войну со снабженцами, т. к. их цель - качество, снабжения - поиск более дешевого сырья. То, что технологи ценны -да, но только с опытом, платят по разному в зависимости от отрасли. Лично устроиться на пищевое предприятие дочке знакомой (вышка, технолог ). НО! в цех !! места технологов заняты и персонал меняется очень редко. Потом предложили ей вариант ночного технолога ( с 20 до 8, 2\2), она отказалась и в итоге ушла. Несколько раз устраивалась в открывающиеся точки общепита "от нуля" и работой от зари до зари, с уверениями "вы же понимаете - это только запуск, все оплатим, будет по другому", в итоге - люди запускают бизнес и с ними прощаются (закончился испытательный срок. Она так попала дважды. Трети предложенный вариант был похож на предыдущие два. Сейчас работает не по специальности.
s,subs:string;
c:char;
i,n,p:integer;
begin
Writeln('Введите последовательность слов, разделенных пробелом');
Readln(s);
s:=' '+s+' ';
Write('Введите искомый символ: '); Readln(c);
subs:=' '+c;
n:=Length(s);
repeat
p:=Pos(subs,s);
if p>0 then begin
i:=p+2;
while (s[i]<>' ') and (i<=n) do i:=i+1;
Write(Copy(s,p+1,i-p-1),' ')
end;
if i<=n then s:=Copy(s,i,n-i+1)
until p=0
end.
Тестовое решение:
Введите последовательность слов, разделенных пробелом
а роза упала на лапу азора
Введите искомый символ: а
а азора