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

Question

Информатика

Игорюха

2 мая, 03:43

С клавиатуры запрашивается строка 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.