Недавнее содержимое от slav@

program Project2; {$APPTYPE CONSOLE} uses SysUtils,windows; Var Text,Text_1,Text_2,text_3,S:String; Textmatr:Array[1..6,1..4] of Char; i,j,k,kolsimvolov:integer; key1:array[1..6] of Byte; key2:array[1..4] of Byte; p,t,m:Boolean; Begin SetConsoleCP(1251); SetConsoleOutputCP(1251)...

а если поменять второй ключ то расшифровка работает неправильно(((((((

coded_text не константа.мы вводим текст шифрование перестановкой,и на основе этого текста по ключам создаем матрицу.....вот у меня не получается ее создать((

мне если можно,то на паскале......на бейсике еще можно

Заполнение матрицы буквами дан текст.вводится ключ с помощью которого осуществляется заполнение матрицы по строчкам.написать программу заполнения матрицы.вот пример задания