Шифрование - Turbo Pascal
Формулировка задачи:
нужно создать программный код (программу) шифрования. Исходная информация должна вводиться с клавиатуры или считываться из файла, зашифрованная информация должна сохраняться в файле *.txt. напишите программу полностью пожалуйста.
Решение задачи: «Шифрование»
textual
Листинг программы
{Шифр простая перестановка} Var S : String; i : Byte; ch : Char; Begin Readln(S); If Odd(Length(S)) then S:=S+' '; For i:=1 to Length(S)-1 do If Odd(i) then Begin Ch:=S[i]; S[i]:=S[i+1]; S[i+1]:=Ch; End; Writeln(S); End.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д