Ответы и объяснения

  • Pauel
  • профессор
2013-11-29T08:01:47+04:00
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)>0 then
  return pos (copy(s2, j, 1), s1);
  end;
return 0;
end;