Исходный массив:
1 2 3 4 5 6 7 8 9 10 11
Далее, каждому элементу начиная с нулевого, присваиваем значение массива с таким же индексом, но считая с конца и получаем:
11 10 9 8 7 6 7 8 9 10 11
Вот первое задание на рис 1, и 3 е на рис 2. Надеюсь помог)
var
a: array [1..4] of string;
s: string := 'бвгджзйклмнпрстфхцчшщъь';
i, j: byte;
begin
for i := 1 to 4 do
readln(a[i]);
for i := 1 to 4 do
for j := 1 to length(a[i]) do
delete(s, pos(a[i][j], s), 1);
writeln();
writeln(s);
end.
>котики
>это
>несказанное
>добро
>вгжйлмпфхцчшщъь
Если чётное, в конце (младший разряд) 0. На 4 - два нуля. На 8 - три. На 32 - пять нулей.