Закодировать текст, меняя местами соседние символы, только что бы я сома могла вводить любой текст, пожалуйста помогите
10-11 класс
|
Program Encoding;
Var s: String;
tmp : Char;
i: Integer;
Begin
WriteLn('Введите строку:');
ReadLn(s);
i := 1;
While i < Length(s) Do
Begin
tmp := s[i];
s[i] := s[i + 1];
s[i + 1] := tmp;
i := i + 2;
End;
WriteLn('Результат:');
WriteLn(s);
ReadLn;
End.
Другие вопросы из категории
Читайте также
Битах? В ответе укажите число
Нужно эту программу переписать для вещественных чисел
Program lr4
;var A: array[1..25] of integer; i,j,k,c:integer;
begin
writeln('Исходный массив:');
for i:=1 to 25 do
A[i]:=random(25);
randomize;
for i:=1 to 25 do write(A[i]:2:2,' ');
writeln;for c:=1 to 25 do {количество сравнений}
for i:=1 to 24 do
begin
if a[i]<a[i+1] then {меняем местами соседние элементы}
begin
k:=A[i+1];
A[i+1]:=A[i];
A[i]:=k
end;
end;
for i:=1 to 25 do
write(A[i]:2:2, ' '); {упорядоченный массив}
readln;end.
тоит из 120 символов и записан в 8-битной кодировке КОИ-8. Во сколько раз количество информации в первом тексте больше, чем во втором?
1)5 2)2 3)3 4)4
символов. Во сколько раз количество информации во втором тексте больше, чем в первом?
котировки Unicode ( таблица кодировали содержит 65536 символов ) в котировку windows ( таблица котировки содержит 256 символов )?