Вам даны две строки s и t, определите длину наибольшей строки, которая встречается в обеих. формат входных данных первая строка входных данных содержит строку s, вторая строка содержит строку t. обе строки состоят только из строчных латинских букв. 1 < = длина строк < = 1,000. формат выходных данных выведите ответ к .

// pascalabc.net 3.2, сборка 1353 от 27.11.2016 // внимание! если программа не работает, обновите версию! function maxsubstr(s1,s2: string): string; begin   var a: =new integer[s1.length+1,s2.length+1];   var u: =0; var v: =0;   for var i: =0 to s1.length-1 do       for var j: =0 to s2.length-1 do           if s1[i+1]=s2[j+1] then begin               a[i+1,j+1]: =a[i,j]+1;               if a[i+1,j+1]> a[u,v] then begin u: =i+1; v: =j+1 end               end;   result: =s1.substring(u-a[u,v],a[u,v]) end; begin   var s: ='trapperkaperkatrter';   var t: ='appekaperspamer';   writeln(maxsubstr(s,t)) end.

1-я строка имеет длину 1

2-я - 3

3-я - 7

4-я - 15

5-я - 31

6-я - 63

7-я - 127

8-я - 255

9-я - 511 = 8я+8я+i

причем символы с 1 по 255 это первая 8-я строка символы с 256 по 511 это 2-я 8-я строка и символ i

8-я строка это две 7-х строки и символ h

каждая строка в начале имеет предыдущие строки таким образом в начале 8-й строки стоит символ a и далее так как в 4-й строке написано

 

var i, j, min, min_i, min_j: integer; a: array[1..5, 1..5] of integer;

begin for i : = 1 to 5 do begin for j : = 1 to 5 do begin a[i, j] : = random(100) + 1; write(a[i, j]: 4); end; writeln; end; min : = 999; for i : = 1 to 5 do for j : = 1 to 5 do if min > a[i, j] then begin min : = a[i, j]; min_i : = i; min_j : = j; end; a[min_i, min_j] : = 0; writeln('массив с замененным минимальным элементом'); for i : = 1 to 5 do begin for j : = 1 to 5 do write(a[i, j]: 4); writeln; end; end.