Какое ко-во информации для кодирования цвета 1ого пикселя - 24 бита
Var a:array[1..100]of integer;
nol,chet,nechet,i,n:integer;
begin
readln(n);
for i:=1 to n do begin
readln(a[i]);
if (a[i] mod 2=0)and(a[i]<>0) then chet:=chet+1;
if (a[i] mod 2=1) then nechet:=nechet+1;
if a[i]=0 then nol:=nol+1;
end;
writeln('четных :',chet,' ','нечетных :',nechet,',' ',нулевых :',nol);
<span>end.</span>
1) Количество лампочек 4.
Каждая лампочка может иметь только два состояния:
загораться красным или зелёным цветом.
максимальное количество передаваемых сигналов =2^4 =16
(но, если учесть, что лампочка может быть выключена, то у каждой лампочки три состояния: выключена, красная и зелёная, в этом случае макс. количество передаваемых сигналов = 3^4= 81)
------------------------------------------------------------------------------------------
2) Количество лампочек 4.
Каждая имеет только три состояния: красная, зелёная, синяя.
макс. кол-во передаваемых сигналов = 3^4=81.
(с учётом того, что каждая лампочка может быть выключена, то у неё четыре возможных состояния: выключена, красная, зелёная,синяя, тогда макс. кол-во сигналов = 4^4= 256)
Const n=25;
var a:array[1..n] of integer;
i,j,p:integer;
begin
for i:=1 to n do a[i]:=random(50)-20;
for i:=1 to n do write(a[i]:4);
writeln;
for i:=1 to 12 do
if (a[i] mod 2 = 0) then a[i]:=2*a[i];
for i:=14 to n-1 do begin
for j:=14 to n-1 do
if a[j]<=a[j+1] then begin
p:=a[j]; a[j]:=a[j+1]; a[j+1]:=p;
end;
end;
for i:=1 to n do write(a[i]:4);
<span>end.</span>
1: удали <span>Sony Vegas
2: установи </span>K-Lite Codec Pack(либо же переустанови, если таковой имеется), но перед установкой удали старые кодеки.
3: установи Quick Time и ПЕРЕЗАГРУЗИ ПК
4:Установи Sony Vegas (13.0), если не прокатит откатись до 12-ой версии.