Question

Возможность отправлять закодированные сообщения во время второй мировой войны была достаточно важной для союзников. сообщения всегда отправлялись после их кодирования при известного пароля. иметь фиксированный пароль было небезопасно, поэтому возникла необходимость часто изменять его. однако следовало разработать механизм отправления нового пароля. у одного из , работавших в криптографической команде, возникла умная идея - отправить пароль, скрытый в самом сообщении. интересным моментом было то, что получателю сообщения достаточно было знать только размер пароля, а потом найти его в полученном тексте. пароль размера n можно найти поиском в тексте наиболее часто встречаемой подстроки из n символов. после нахождения пароля все подстроки с ним, удаляются из текста. теперь пароль можно использовать для расшифровки сообщения. однако ваша будет . вам достаточно написать программу, которая по заданному размеру пароля и закодированному сообщению найдет пароль в соответствии с описанным выше алгоритмом. рассмотрим пример, в котором размер пароля равен трем (n = 3), а текст сообщения имеет вид baababacb. паролем будет aba, потому что размер этой подстроки 3, она появляется чаще всего во всем тексте (дважды), а остальные шесть различных подстрок появляются только один раз (baa, aab, bab, bac, acb). технические условия входные данные состоит из нескольких тестов. каждый тест представляет собой одну строку, в которой находится длина пароля n (0 < n ≤ 10) и закодированное сообщение. сообщение содержит только прописные буквы латинского алфавита, его длина не более 106 и не меньше n. выходные данные для каждого теста в отдельной строке следует вывести искомый пароль. если существует несколько паролей, удовлетворяющих , то вывести лексикографически наименьший.

Answer 1

Type
    piece = record
        value: string[10];
        count := 1;
    end;

var
    pieces: array[1..200]of piece;
    i, j, n, pieces_n: integer;
    s, p: string;
    found: boolean;
    imax:=1;

begin
    read(s);
    read(n);
    for i := 1 to length(s) - n + 1 do
    begin
        p := Copy(s, i, n);
        found := false;
        for j := 1 to pieces_n do
            if pieces[j].value = p then begin
                pieces[j].count := pieces[j].count + 1;
                found := true;
                if pieces[imax].count < pieces[j].count then
                    imax := j;
                break;
            end;
        if not found then begin
            pieces_n := pieces_n + 1;
            pieces[pieces_n].value := p;
        end;
    end;
   
    writeln(pieces[imax].value);
end.