Определите ключи шифра цезаря, если известны следующие пары открытый текст – шифротекст (исходный алфавит: абвгдеёжзийклмнопрстуфхцчшщъыьэюя): oапельсин - твчюодыа

Ну тут совсем всё просто: смотрим на входные данные, исходное слово "апельсин", а зашифрованное "твчюодыа". вспоминаем принцип шифра "цезаря", что бы зашифровать текст, необходимо определить сдвиг по алфавиту, так называемый "корень". то есть, если корень равен 3, то все буквы а в исходном послании заменятся на (сдвигаемся по алфавиту на 3 буквы вправо) букву г. но что делать если мы шифруем букву ю? считаем сдвиг ю - я это 1, а дальше просто "прыгаем" в начало алфавита я - а это 2, а - б это 3, следовательно при ключе 3 буква ю станет буквой б. в нашем случаи все что нужно, так это проверить, на сколько букв сместилась буква "а", в слове "апельсин", что превратилась в букву "т", в слове "твчюодыа". смотрим по даному алфавиту и считаем количество сдвигов, это будет 19. теперь провевим, что если сдвинуть остальные буквы в слове апельсин на 19 символов вправо по алфавиту, если они будут соответствовать зашифрованым, то мы нашли корень правильно. в нашем случаи именно так и есть, то есть ответ ключь = 19.

var

a,h,s: integer;

begin

writeln('введите основание  ');

readln(a);

writeln('введите высоту треугольника')  ;

readln(h);

s: =(1/2)*(a*h);

writeln('площадь равна ',s);

end.