Зашифровать введённую с клавиатуры строку, поменяв местами первый символ со вторым, третий с четвёртым и т.д. Провести дешифровку

@[ZAh]yo · Регистрация: 13.05.2009

Author24 — интернет-сервис помощи студентам

@Puporev · 13.05.2009, 08:48

Pascal

uses crt;
var s,s1:string;
    i:byte;
    c:char;
begin
clrscr;
writeln('Введите строку:');
readln(s);
for i:=1 to length(s) do
if i mod 2=0 then
 begin
  c:=s[i];
  s[i]:=s[i-1];
  s[i-1]:=c;
 end;
writeln('Зашифрованная строка:');
writeln(s);
readln;
for i:=1 to length(s) do
if i mod 2=0 then
 begin
  c:=s[i];
  s[i]:=s[i-1];
  s[i-1]:=c;
 end;
writeln('Расшифрованная строка:');
writeln(s);
readln
end.

@[ZAh]yo 1 / 1 / 0 Регистрация: 13.05.2009 Сообщений: 60
		1
	Зашифровать введённую с клавиатуры строку, поменяв местами первый символ со вторым, третий с четвёртым и т.д. Провести дешифровку 13.05.2009, 08:38. Показов 4435. Ответов 1 Метки нет (Все метки) Зашифровать введённую с клавиатуры строку, поменяв местами первый символ со вторым, третий с четвёртым и т.д. Провести дешифровку 0

	13.05.2009, 08:48

Зашифровать введённую с клавиатуры строку, поменяв местами первый символ со вторым, третий с четвёртым и т.д. Провести дешифровку

Решение