Реализации алгоритмов/Шифр Бэкона: различия между версиями

If (tekbukva='A')or(tekbukva='B')or(tekbukva='C')or(tekbukva='D')or(tekbukva='E')or(tekbukva='F')or
(tekbukva='G')or(tekbukva='H')or(tekbukva='I')or(tekbukva='J')or(tekbukva='K')or(tekbukva='L')or

(tekbukva='J')or(tekbukva='K')or(tekbukva='L')or(tekbukva='M')or(tekbukva='N')or(tekbukva='O')or(tekbukva='P')or(tekbukva='R')or(tekbukva='S')or

(tekbukva='T')or(tekbukva='U')or(tekbukva='V')or(tekbukva='W')or(tekbukva='X')or(tekbukva='Y')or
(tekbukva='Z')or(tekbukva='А')or(tekbukva='Б')or(tekbukva='В')or(tekbukva='Г')or(tekbukva='Д')or

(tekbukva='В')or(tekbukva='Г')or(tekbukva='Д')or(tekbukva='Е')or(tekbukva='Ё')or(tekbukva='Ж')or(tekbukva='З')or(tekbukva='И')or(tekbukva='Й')or

(tekbukva='К')or(tekbukva='Л')or(tekbukva='М')or(tekbukva='Н')or(tekbukva='О')or(tekbukva='П')or
(tekbukva='Р')or(tekbukva='С')or(tekbukva='Т')or(tekbukva='У')or(tekbukva='Ф')or(tekbukva='Х')or

(tekbukva='ФЦ')or(tekbukva='ХЧ')or(tekbukva='ЦШ')or(tekbukva='ЧЩ')or(tekbukva='ШЪ')or(tekbukva='ЩЫ')or
(tekbukva='ЪЬ')or(tekbukva='ЫЭ')or(tekbukva='ЬЮ')or(tekbukva='ЭЯ')or Then