Хотя бы одно помогите сделать

Ответы:

2

function looking (s1:string, s2:string):integer

j:integer,

begin

for j:=1 to length(s2) do

  begin

  if pos (copy(s2, j, 1), s1)&gt,0 then

  return pos (copy(s2, j, 1), s1),

  end,

return 0,

end,