profile
Опубликовано 6 лет назад по предмету Информатика от inikini

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

  1. Ответ
    Ответ дан Pauel
    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;
Самые новые вопросы