Дана строка-предложение. зашифровать ее, поместив вначале все символы, расположенные на четных позициях строки, а затем, в обратном порядке, все символы, расположенные на нечетных позициях.

Var 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.

04₁₀ = 100₂

10₁₀ = 1010₂

1996₁₀ = 11111001100₂

 

 

var

i,j,k: integer;

a,b,c: array [1..30] of integer;

begin

randomize;

j: =0;

k: =0;

for i: =1 to 30 do

begin

a[i]: =random(80)-30;

if a[i] mod 2 =0 then

begin

j: =j+1;

b[j]: =a[i]

end

end;

for i: =30 downto 1 do

if a[i]< 0 then

begin

k: =k+1;

c[k]: =a[i];

end;

for i: =1 to j do

writeln(b[i]);

for i: =1 to k do

writeln(c[i]);

end.