Шифрования, который часто используют начинающие криптографы, заклю- чается в том, что шифруемое слово записывается некоторым достаточно хитрым образом в клетках
квадрата. Одним из таких, не очень удачных шифров, является шифр "Змейка".
Он применяется для шифрования слов длины n^2 (если длины слова меньше, оно дополняется
точками). Слово разбивается на части длиной по n символов каждая. Далее эти части записыва-
ются в квадрат размером n на n (каждая часть в отдельную строку), при этом части с четными
номерами записываются задом наперед. Например, слово Iloveyou., полученное из фразы I love
you. удалением пробелов, будет закодировано следующим образом.
Оно будет разбито на три части: Ilo, vey, ou.. Эти части далее будут записаны в квадрат так:

Можно видеть, что шифруемое слово записано в этом квадрате "змейкой".
Задан квадрат, получившийся в результате шифрования некоторого слова описанным
Необходимо выяснить, содержится ли в исходном слове подстрока t.
Формат ввода:

Первая строка входного файла содержит целое число n (1 <= n <= 50). Последующие n строк
содержат каждая по n символов - строки квадрата, начиная с первой. Последняя строка входного
файла содержит искомую непустую строку t, длина которой не превышает 1000 символов. Квадрат
и строка t состоят только из строчных букв латинского алфавита и точек.
Формат вывода:

В выходной файл выведите слово YES, если строка t содержится в зашифрованной строке, и
слово NO - в противном случае.

Пример ввода: Пример вывода:

3
Ilo
yev
ou.
you

YES

3
Ilo
yev
ou.
me

NO

Основы кибернетики были заложены трудами по математической логике американского математика Норберта Винера, опубликованными в 1948 г.Кибернетика – это наука об общих принципах управления в различных системах: технических, биологических, социальных и др. Управление является центральным понятием кибернетики, и оно пронизывает все сферы деятельности человека и общества.Часто возникает путаница в понятиях "информатика" и "кибернетика". Существует спорное мнение, что информатика является одним из направлений кибернетики.

Информатика появилась благодаря развитию компьютерной техники, базируется на ней и без нее немыслима. Кибернетика же развивается сама по себе, строя различные модели управления объектами, хотя и очень активно использует все достижения компьютерной техники.

Основная концепция, заложенная Н. Винером в кибернетику, связана с разработкой теории управления сложными динамическими системами в разных областях человеческой деятельности. Кибернетика существует независимо от наличия или отсутствия компьютеров.

Информатика занимается изучением процессов преобразования и создания новой информации более широко. Поэтому может сложиться впечатление об информатике как о более емкой дисциплине, чем кибернетика. Однако, с другой стороны, информатика не занимается решением проблем, не связанных с использованием компьютерной техники.Можно сказать, что кибернетика и информатика различаются в расстановке акцентов. Если в информатике важны свойства информации и аппаратно-программные средствах ее обработки, то в кибернетике – это разработка концепций и построение моделей управления. Информатика и кибернетика – разные науки, сферы деятельности которых, однако, сильно пересекаются.

Управление – это целенаправленная организация того или иного процесса, протекающего в системе.Процесс управления – это информационный процесс, который включает в себя сбор информации, ее переработку и анализ, принятие решений, выработку управляющих воздействий и их доведение до объектов управления.Каждая фаза процесса управления протекает во взаимодействии с окружающей средой при воздействии разного рода помех.Через объект управления проходят в основном материальные потоки и в значительно меньшей степени – информационные; в то же самое время через управляющий орган проходят только информационные потоки. Именно поэтому процесс управления является информационным процессом, а все люди, занятые в сфере управления, имеют дело только с информацией.

Const
   K = 3;
   N = 4;
Var
   A:array[1..K,1..N] of integer;
   Max,Min,i,j:integer;
Begin
For i:= 1 to K do
    Begin
    For j:= 1 to N do
        Begin
        A[i,j]:=random(21)-10;
        Write(A[i,j]:3,' ')
        End;
    WriteLn
    End;
Max:=A[K,N];
Min:=A[K,N];
For i:= 1 to K do
    For j:= 1 to N do
        Begin
        if Max<A[i,j] then Max:=A[i,j];
        if Min>A[i,j] then Min:=A[i,j]
        End;
WriteLn('Min = ',Min);
WriteLn('Max = ',Max);
End.

Пример:

 -3  -2   5  -8
  2  -3   7   5
-10  -2   7   4
Min = -10
Max = 7