Ограничение времени 1 секунда Ограничение памяти 64Mb
Ввод стандартный ввод или input.txt
Вывод стандартный вывод или output.txt
Современные генные инженеры создали 26 различных оснований, из которых они собираются конструировать гены. Они обозначили эти основания латинскими буквами от A до Z. Таким образом, структуру любого нового гена можно записать строкой из латинских букв.
Свойства генов в значительной степени определяются парами соседних оснований, например, в геноме «AССABAC» имеются такие пары оснований: «АС», «СС», «СА», «АВ», «ВА», «АС».
Показателем схожести двух геномов ученые считают количество пар соседствующих оснований одного генома, которые имеются в другом геноме.
Вам заданы две последовательности оснований (т.е. два генома), нужно определить показатель схожести одного генома другому.
Формат ввода
Строка 1: представление структуры первого генома в виде непустой строки из заглавных латинских букв A-Z.
Строка 2: представление структуры второго генома в аналогичном виде.
Длины обеих строк не превосходят 105.
Формат вывода
Программа должна вывести одно целое число –- показатель схожести, вычисленный для геномов, заданных в первой и второй строке.
Пример
Ввод Вывод
ABBACAB
BCABB
4
Примечания
Во втором геноме имеются следующие пары оснований первого генома: AB, BB, CA, AB. Так как пара AB в первом геноме встречается два раза, поэтому она подсчитана в ответе два раза, поэтому она подсчитана в ответе два раза.
var x: array[1..nx, 1..nx] of integer;z:array[1..nx*2] of integer;
i, j, k,n,r,t: integer;
begin
Writeln('Введите размер матрицы n');Read(n);
for i := 1 to n do begin
for j := 1 to n do begin
Read(k);x[i, j] := k; end;end;
Writeln('Исходный массив');
for i := 1 to n do begin
for j := 1 to n do begin
Write(x[i, j]:4);
if x[i, j]>0 then begin t:=t+1; z[t]:=x[i, j];end;
end;
Writeln; end;
Writeln;Writeln('Одномерный массив');
for j := 1 to t do
Write(z[j]:4);
end.
Инструмент "Штамп" действует как резиновый штамп или наклейка. Он позволяет вставлять в Ваш рисунок готовые картинки или фотографии. Штампы в Tux Paint могут состоять из различных файлов. Один из необходимых файлов это, конечно, собственно рисунок. Штампы, используемые в Tux Paint представляют собой рисунки PNG. Они могут быть полноцветными или в оттенках серого
Инструмент "Магия" фактически представляет собой набор специальных инструментов. Надо выбрать один из "волшебных" эффектов на панели справа, затем нажмите и поводите мышью по картинке, чтобы применить эффект. Описывать их нет смысла, просто пробуйте. Более 3-х десятков типов - Радуга, Искры, Зеркало, Переворот, Размытие, и т.д.