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

Question

Информатика

Арминия

12 января, 22:38

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

+1

Ответы (1)

Знаете ответ на вопрос?

Бина · Answer 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 0 then

R:=R+S[L div 2+1];

Write (R)

End.