Решаем задачи Абрамян на Паскале. String66

String66. Дана строка-предложение. Зашифровать ее, поместив вначале все символы, расположенные на четных позициях строки, а затем, в обратном порядке, все символы, расположенные на нечетных позициях (например, строка «Программа» превратится в «ргамамроП»).

Решение:

program String62;
var
 S,S2:String;
 i:integer;

begin
  Write('S: ');
  Readln(S);
  S2:='';
  i:=2 ;
  while (i<=Length(S)) do
   begin
    S2:=S2+S[i];
    inc(i,2);
   end;
  i:=Length(S)+ (Length(S) mod 2)-1;
  while (i>=1) do
   begin
    S2:=S2+S[i];
    dec(i,2);
   end;
  Writeln(S2);
end.

program String62;

var

S,S2:String;

i:integer;

begin

Write('S: ');

Readln(S);

S2:='';

i:=2 ;

while (i<=Length(S)) do

begin

S2:=S2+S[i];

inc(i,2);

end;

i:=Length(S)+ (Length(S) mod 2)-1;

while (i>=1) do

begin

S2:=S2+S[i];

dec(i,2);

end;

Writeln(S2);

end.

Другие задачи из раздела String можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. String66

Комментарии:

Добавить комментарий Отменить ответ