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

String67. Дано предложение, зашифрованное по правилу, описанному в задании String66. Расшифровать это предложение.

Решение:

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

begin
  Write('S: ');
  Readln(S);

  i:=1;
  S2:='';
  while (i<=(Length(S) div 2)+(Length(S) mod 2)) do
   begin
    S2:=S2+S[Length(s)-i+1]+S[i];
    inc(i);
   end;
  if (Length(S) mod 2<>0) then delete(S2,Length(S2),1);
  Writeln(S2);
end.

program String62;

var

S,S2:String;

i:integer;

begin

Write('S: ');

Readln(S);

i:=1;

S2:='';

while (i<=(Length(S) div 2)+(Length(S) mod 2)) do

begin

S2:=S2+S[Length(s)-i+1]+S[i];

inc(i);

end;

if (Length(S) mod 2<>0) then delete(S2,Length(S2),1);

Writeln(S2);

end.

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

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

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

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

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