Даны две строки: s1 и s2. проверить, содержится ли строка s2 в строке s1. если да, то вывести номер позиции, начиная с которой s2 содержится в s1, если нет, то вывести 0.

Пример реализации в vba  excel sub poisk() s1 = cells(3, 6) s2 = cells(4, 2) b = mid(s1, 1, 1) l1 = len(s1) n = 0 l2 = len(s2) for i = 1 to l2    a = mid(s2, i, 1)    if a = b then        ss = mid(s2, i, l1)        if ss = s1 then            n = i              exit for        end if    end if next i cells(3, 10) = n end sub

Можешь "включить" подробный вывод, если объявишь макрос "#define debug" //////////////////////////////////////////////////// using system; using system.collections.generic; using system.linq; using system.text; namespace cool{     class main     {         static void main(string[] args)         {             int u1 = 1, u2 = 2;             int l1 = 1, l2 = 1;             double a = 0, eps = 0.001;             int i = 2;             int u, l;             double a;             u = u2 + u1;             l = l2 + l1;             a = (double)u / l;             while (math.abs(a - a) > eps || i < 5)             {                 a = a;                 i++;                 l1 = l2; u1 = u2;                 l2 = l; u2 = u;                 u = u2 + l2;                 l = l2 + l1;                 a = (double)u / l;                                 #if debug                    console.writeline("{0} -> {1}|{2}", i, u, l);                 #endif                 if (i == 5)                     console.writeline("пятый элемент: {0}", a);                 if (math.abs(a - a) < eps)                     console.writeline("элемент, отличающийся на менее чем {1}: {0}", a, eps);             }         }     } }

// pascalabc.net 3.3, сборка 1559 от 01.11.2017 // внимание! если программа не работает, обновите версию! function masinput(s: string; m,n: integer): array[,] of integer; begin   writeln('введите построчно элементы массива ',s,'[',m,',',n,']');   result: =readmatrinteger(m,n) end; procedure masprint(s: string; a: array[,] of integer; k: integer: =5); begin   writeln('*** полученный массив ',s,' ***');   a.println(5);   writeln(5*a.colcount*'=') end; procedure mastransform(var a: array[,] of integer); begin   var s: =a.cols.select(col-> col.any(t-> t=0));   var k: =s.where(t-> t).count;   if k> 0 then begin       var ns: =a.colcount-1; // номер колонки       var s1: =s.numerate.where(t-> t[1]).select(t-> t[0]-1);       var st: =new stack< integer> ;       foreach var t in s1 do st.push(t);       setlength(a,a.rowcount,a.colcount+k);       var nt: =a.colcount-1; // номер принимающей колонки       for var i: =ns downto 0 do           if st.count> 0 then               if st.peek=i then begin                   a.setcol(nt,arrfill(a.rowcount,1));                   a.setcol(nt-1,a.col(i));                   nt-=2; st.pop                   end               else begin                   a.setcol(nt,a.col(i));                   nt-=1                   end       end; end;   begin   var a: =masinput('a',4,5);   mastransform(a);   masprint('a',a);   var b: =masinput('b',5,5);   mastransform(b);   masprint('b',b);   var c: =masinput('c',5,4);   mastransform(c);   masprint('c',c) end. пример введите построчно элементы массива a[4,5] 3 5 6 3 8 6 4 0 1 3 -2 0 0 4 1 2 3 5 -7 0 *** полученный массив a ***       3      5      1      6      1      3      8      1       6      4      1      0      1      1      3      1     -2      0      1      0      1      4      1      1       2      3      1      5      1    -7      0      1 ======================================== введите построчно элементы массива b[5,5] 1 6 3 9 2 2 4 8 5 7 1 3 1 4 5 3 5 7 6 4 8 9 2 7 3 *** полученный массив b ***       1      6      3      9      2       2      4      8      5      7       1      3      1      4      5       3      5      7      6      4       8      9      2      7      3 ========================= введите построчно элементы массива c[5,4] 2 3 -1 -2 0 6 7 9 3 4 8 6 7 -2 2 -5 4 0 1 7 *** полученный массив c ***       2      1      3      1    -1    -2       0      1      6      1      7      9       3      1      4      1      8      6       7      1    -2      1      2    -5       4      1      0      1      1      7 ==============================