Ограничение времени 1 секунда Ограничение памяти 64Mb

Ввод стандартный ввод или input.txt

Вывод стандартный вывод или output.txt

Современные генные инженеры создали 26 различных оснований, из которых они собираются конструировать гены. Они обозначили эти основания латинскими буквами от A до Z. Таким образом, структуру любого нового гена можно записать строкой из латинских букв.

Свойства генов в значительной степени определяются парами соседних оснований, например, в геноме «AССABAC» имеются такие пары оснований: «АС», «СС», «СА», «АВ», «ВА», «АС».

Показателем схожести двух геномов ученые считают количество пар соседствующих оснований одного генома, которые имеются в другом геноме.

Вам заданы две последовательности оснований (т.е. два генома), нужно определить показатель схожести одного генома другому.

Формат ввода

Строка 1: представление структуры первого генома в виде непустой строки из заглавных латинских букв A-Z.

Строка 2: представление структуры второго генома в аналогичном виде.

Длины обеих строк не превосходят 105.

Формат вывода

Программа должна вывести одно целое число –- показатель схожести, вычисленный для геномов, заданных в первой и второй строке.

Пример

Ввод Вывод

ABBACAB

BCABB

4

Примечания

Во втором геноме имеются следующие пары оснований первого генома: AB, BB, CA, AB. Так как пара AB в первом геноме встречается два раза, поэтому она подсчитана в ответе два раза, поэтому она подсчитана в ответе два раза.

Растровое изображение представляет из себя:
✔ мозаику из очень мелких элементов — пикселей;
сочетание примитивов (это про векторное изображение);
палитру цветов.

Растровое графическое изображение формируется из:
линий
✔ пикселей
графических примитивов (это про векторное изображение)

В векторной графике изображения строятся из:
пикселей (это про растровую графику);
✔ примитивов;
рисунков.

Эффективно представляет изображения фотографического качества:
векторная графика;
✔ растровая графика.

Относительно небольшой объём памяти занимают:
✔ векторные рисунки; (это как правило верно. Но если пытаться делать изображения фотографического качества в векторной графике, файлы будут получаться огромными)
растровые изображения.

Могут быть легко масштабированы без потери качества:
✔ векторные рисунки;
растровые изображения.

Растровое графическое изображение получается:
✔ в процессе сканирования (в остальных случаях - векторная)
при работе с системами компьютерного черчения
при создании рисунка в MS Word

Какой тип графического изображения вы будете использовать при редактировании цифровой фотографии?
✔ растровое изображение
векторное изображение

Что можно отнести к достоинствам растровой графики по сравнению с векторной?
Малый объём графических файлов. (это про векторную)
✔ Фотографическое качество изображения.
Возможность просмотра изображения на экране графического дисплея. (это верно для любой компьютерной графики)
Возможность масштабирования изображения без изменения его качества. (это про векторную)

Файлы, с какой графикой имеют наибольший размер?
✔ Растровой.
Векторной.
Трёхмерной. (обычно простенькая трехмерная графика составляется из примитивов и имеет небольшой размер. Но опять-таки, если ставить целью добиться максимальной естественности изображения, то здесь будет максимальный размер) 

Изображения, какой графики состоят из массива точек (пикселей)?
✔ Растровой.
Векторной
Трёхмерной

Для хранения растрового изображения размером 64 на 64 пикселя отвели 512 байтов памяти. Каково максимально возможное число цветов в палитре изображения?
Всего пикселей 64 * 64 = 2^12, на них отводится 512 байт = 2^9 байт = 2^12 бит. Тогда на 1 пиксель отводится всего 1 бит, и в палитре не больше 2^1 = 2 цветов.

В процессе преобразования растрового графического файла количество цветов уменьшилось с 512 до 8. Во сколько раз уменьшился информационный объем файла?
512 = 2^9, 8 = 2^3. В первом случае на 1 пиксель отводится 9 бит, во втором - 3 бита. Размер уменьшился в 3 раза.

//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
const
  N = 10;

var
  a: array [1..N] of integer;
  i, j, b: integer;

begin
  for i := 1 to N do
    a[i] := Random(81) - 40;
  writeln('Элементы массива a: ');
  for i := 1 to N do
    write(a[i], ' ');
  writeln;
 
  //сортировка не очень быстрая, но и массив маленький
  for j := 1 to n do
    for i := 1 to n - 1 do
      if a[i] < a[i + 1] then
      begin
        b := a[i];
        a[i] := a[i + 1];
        a[i + 1] := b;
      end;
  writeln;
  writeln('После сортировки : ');
  for i := 1 to N do
    write(a[i], ' ');
  writeln;  
end.