Дана последовательность символов. Выяснить, имеются ли в последовательности все буквы, входящие в слово "тина"

[LLlystr1zty]

Помогите, пожалуйста начинающему

[iborisov]

var
  s1,s2 : string;
  i,k,l : integer;
begin
  s1:='тина';
  s2:='последовательность символов';
  l:= length(s1);
  k:=l;
  for i:=1 to k do
  begin
    if pos(s1[i],s2)>0 then dec(l);
  end;
  if l=0 then
  begin
    // Шарик!
  end;
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[LLlystr1zty]

А можно на C++ ?

[iborisov]

Наверное, с учётом, что у меня utf-8, как-то так:

int main()
{
    char s1[] = "тина";
    char s2[] = "последовательностьсимволов";
    int l1 = strlen(s1)/2;
    int l2 = strlen(s2)/2;

    int k = 0;
    for (int i=0; i<l1; i++)
    {
        for (int j=0; j<l2; j++)
        {
            if ((s1[i*2] == s2[j*2]) && (s1[i*2+1] == s2[j*2+1]))
            {
                k++;
                j=l2;
            }
        }
    }
    if (k == l1)
    {
        //Шарик!
    }
    return 0;
}