Дана строка-предложение. Зашифровать ее, поместив вначале все символы, расположенные на четных местах, а затем, в обратном порядке, все символы, расположенные на нечетных местах

Категория: Delphi/Pascal
2013-03-31 22:16:49

Например, строка "Программа" превратится в "ргамамроП"

code: #pascal
Program String66;
Var 
  inString : String; 
  s, temp  : String;
  i        : Integer;
Begin
  ReadLn(inString);
 
  Repeat
    Inc(i);
    temp := temp + inString[i];
    If i = Length(inString) Then Break;
 
    Inc(i);
    s := s + inString[i];
    If i = Length(inString) Then Break;
 
  Until False;
 
  InString := temp;
 
  For i := 1 To Length(temp) Do
    inString[Length(temp)-i + 1] := temp[i];
 
  inString := s + inString;
  WriteLn(inString);
End.

автор: Nikolai a.k.a. Lemac

Поделиться:

Похожие статьи:

теги: строка, предложение, шифр