Под "г" не знаю как...............
Var
a:array[1..20] of integer;
i,max,c,nom:integer;
begin
max:=-100000000;
for i:=1 to 20 do begin
a[i]:=random(20)-10;
write(a[i],' ');
end;
for i:=1 to 20 do begin
if (a[i]<0) and (a[i]>max) then nom:=i;
if (a[i]<0) and (a[i]>max) then max:=a[i];
end;
writeln;
for i:=1 to 20 do begin
if i=nom then swap(a[nom],a[1]);
end;
for i:=1 to 20 do begin
write(a[i],' ');
end;
writeln('max=',max,');
<span>end.</span>
F G F+G
0 0 0
0 0 0 Cемь одинаковых строк: в шести все нули, в одной - 1.
0 0 0
0 0 0
0 0 0
0 0 0
1 1 1
----------------
1 0 1 во всех остальных при различных значениях F и G
0 1 1 F+G =1 (F+G=0 при F=G=0)
...............
ответ: 6
Ну что ж ,снова я )
Честно говоря немного не понял задания ,но сделаю что могу =) Наверное имеется ввиду вес ОДНОГО символа этого сообщения ? Если так ,то :
Просто делим 450 битов на 150 символов.
450\150=3 бита
Ответ : 3 бита
1. 8 бит = 1 байт ⇒ 32 бита = 4 байта
2. 1 байт = 8 бит ⇒ 30 байт = 240 бит
3. Алфавит
4. 33 (количество букв в алфавите, или 32, если "Ё" не считать)