С клавиатуры запрашивается строка S. Сформировать в памяти строчку R, в

С клавиатуры запрашивается строка S. Сформировать в памяти строку R, в которой выписаны по порядку символы строчки S: первый, заключительный, 2-ой, предпоследний, и т.д...

Задать свой вопрос
1 ответ
Var
   S,R:string;
   i,L:integer;
Begin
Write('Введите строчку: ');ReadLn(S);
L:=Length(S);
R:='';
For i:= 1 to L div 2 do
    R:=R+S[i]+S[L-i+1];
if L mod 2 lt;gt; 0 then
   R:=R+S[L div 2+1];
Write(R)
End.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт