Program fofgogjoj;
Var
a: array [1..100] of integer;
i, n, p: integer;
Begin
p:=1;
n:=30;
for i:=5 to n do
begin
a[i]:=i;
if i mod 2=0 then
p:=p*a[i];
end;
Writeln ('Произведение элементов массива с четными числами равно: ',p);
End.<span>
</span>
<span>2) каждому символу их двоичные коды</span>
Четных чисел 3: 2,4,6. Одно из них можно выбрать 3 -мя способами. Из оставшихся 6 можно составить 6! = 720 перестановок, следовательно, всего перестановок - 720*3 = 2160
Блин что за муть как сложно,думаю как решить )
Анимация процесса копирования или архивации
_____________________________________