Дана строка-предложение. Зашифровать ее, поместив вначале все символы, расположенные на четных позициях строки, а затем, в обратном порядке, все символы, расположенные на нечетных позициях.
Answers & Comments
sellsaccountvar a, b, c, i, n :integer; s, p:string; begin readln (s); for i:=1 to length (s) do if i mod 2 = 0 then p:=p+s[i]; for i:=length (s) downto 1 do if i mod 2 <> 0 then p:=p+s[i]; writeln (p); end.
Answers & Comments
s, p:string;
begin
readln (s);
for i:=1 to length (s) do
if i mod 2 = 0 then p:=p+s[i];
for i:=length (s) downto 1 do
if i mod 2 <> 0 then p:=p+s[i];
writeln (p);
end.