Строки

[fisher94]

Не могу решить задачку, помогите пожлст:
Вводятся строки S1, S2. Удалить из строки S1 вхождение S2

[_-Re@l-_]

Эм.. Так уж сложно?!
Вот значащий фрагмент.

if pos(s2,s1) <> 0 then
  delete(s1,pos(s2,s1),length(s2));

[Aranea tela telam]

Сообщение от fisher94

Не могу решить задачку, помогите пожлст:
Вводятся строки S1, S2. Удалить из строки S1 вхождение S2

Надо 1 вхождение или все?
Есле все то можно так

Program pr15;
var s,s2:string;
   g,p,i:byte;
begin
writeln('Введите строку:');
readln(s);
writeln('Введите строку для замены:');
readln(s2);
i:=Length(s);
p:=Length(s2);
for g:=1 to i do
begin
if pos(s2,s) <> 0 then
delete(s,pos(s2,s),p);
end;
writeln(s);
end.

[Mad_Cat]

for g:=1 to i do

Зачем??
Правильнее

While pos(s2,s) <> 0 do delete(s,pos(s2,s),p);

[Aranea tela telam]

Сообщение от Mad_Cat

for g:=1 to i do

Зачем??
Правильнее

While pos(s2,s) <> 0 do delete(s,pos(s2,s),p);

согласен )
p.s. я еще пока учусь .