ОМ
Олеся Мыльникова
Траблы с кодом паскаль (строки)
даны 2 строки s1 и s2 .проверить содержит ли строка s2 символы s1 .Если да удалите из первой строки 2 символа, начиная с четвертого если нет вывести 0;
пример (procedure TForm1.Button1Click(Sender: TObject);
var
st1,st2,st3,st4:string;
i,n1,n2,n3:integer;
begin
st1:=edit1.Text;
st2:=edit2.Text;
st3:=edit3.Text;
n1:=length(st1);
n2:=length(st2);
n3:=length(st3);
st4:=concat (st1 + st2 + st3);
st4:=copy(st1,length(st1),1) + copy(st2,1,5) +copy(st3,length(st3),2);
edit4.Text:=(st4);
end;
end.) // не к этому заданию