Стабличного процессора excel автоматизировать процесс кодирования слов с использованием ключевого слова bank (предполагается, что слова будут состоять только из строчных латинских букв и их длина не будет превышать 10 символов). для решения использовать текстовые функции символ и кодсимвол. каждая буква должна храниться в отдельной ячейке. величина сдвига должна определяться автоматически (код буквы ключевого слова минус код буквы «а» плюс единица). попробовать с вашей таблицы зашифровать слова: algebra, geometry, english

в строке 1 размещается повторяющееся ключевое слово. в строке 2 – сдвиги, соответствующие буквам ключа.

функция кодсимв(символ) в качестве результата получает код аргумента. аргументом может быть либо символьная константа, либо адрес ячейки, в которой хранится символ. в последнем случае выдается код содержимого ячейки. поскольку буквы алфавита в коде расположены по алфавиту и имеют подряд идущие номера (внутренние коды), то порядковый номер буквы в алфавите равен коду данной буквы минус код буквы «a» плюс единица. так вычисляется сдвиг, соответствующий букве ключевого слова.

в строке 3,5,7 располагаются шифруемые слова. в ячейках строки 4, 6, 8 помещаются формулы шифрования.

функция символ(код символа) возвращает символ по значению его ascii-кода. 

функция остат(делимое; делитель) возвращает остаток от целочисленного деления. алфавит содержит 26 букв. остатки деления на 26 – числа в диапазоне от 0 до 25. это позволяет оставаться в пределах кодов алфавита (строчных букв): от кода буквы «a» до кода буквы «z».

Var n,k,i: integer; begin write('n = '); readln(n); k: =0; for i: =1 to 6 do   begin   if n mod 2 = 1 then begin k: =i; break; end;   n: =n div 10;   end; if k=0   then writeln('в числе нет нечётных цифр')   else writeln('k = ',k); end. пример: n = 123456 k = 2