Шифрование - Turbo Pascal

Формулировка задачи:

нужно создать программный код (программу) шифрования. Исходная информация должна вводиться с клавиатуры или считываться из файла, зашифрованная информация должна сохраняться в файле *.txt. напишите программу полностью пожалуйста.

Код к задаче: «Шифрование - Turbo Pascal»

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

9   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ