1. i= 8 бит , следовательно N=
2. после красного может загореться только желтый свет, следовательно N=1? тогда i =0 бит
3. Nп = 16 , следовательно iп = 4 бита, тогда объем их сообщения Iп = 4*90=360 бит
Nм = 32, следовательно iм= 5 бит, тогда объем их сообщения Iм=5*70 = 350 бит
Таким образом, объем сообщения Пульти на 10 бит больше объема сообщения Мульти
4. N=8 ,следовательно i = 3 бита, Ic= 384*3=1152 бита = 144 байта = 0.140625 Кб
Const n=15;
var a,s:array [1..100] of integer;
i,j:integer;
begin
for i:=1 to n do begin
a[i]:=random(15);
write(a[i],' ');
end;
j:=1;
writeln;
writeln('Полученный массив');
for i:=1 to n do begin
if (a[i] mod 2 = 0) and (a[i]>0) then begin
inc(j);
s[j]:=a[i];
write(s[j],' ');<span>
end;
end;</span>
Var s:string;
i:integer;
begin
readln(s);
write(s[1] + s[3] + s[2]);
end;