Цитата:
Сообщение от metorok
1) Упорядочить символы строки, стоящие на местах с чётными номерами, в алфавитном порядке, стоящие на местах с нечётными номерами – в порядке, обратном алфавитному.
|
Код:
Const
N=60;
Var
S:String;
i,j:Byte;
C:Char;
Begin
Randomize;
S:='';
For i:=1 to N do
S:=S+Chr(97+Random(26));
Writeln(S);
Writeln;
For i:=1 to (N div 2) do
For j:=1 to (N div 2)-i do
If ((j*2+2)<=Length(S)) and (S[j*2]>S[j*2+2]) then
begin
C:=S[j*2+2];
S[j*2+2]:=S[j*2];
S[j*2]:=C;
end;
For i:=1 to (N div 2) do
For j:=1 to (N div 2)-i do
If ((j*2+1)<=Length(S)) and (S[j*2-1]<S[j*2+1]) then
begin
C:=S[j*2+1];
S[j*2+1]:=S[j*2-1];
S[j*2-1]:=C;
end;
Writeln(S);
Readln
End.