M = 15, n = 1
m = m-2 = 15-2 = 13; n = n*2 = 1*2 = 2
m<6 ⇒ 13<6 ⇒ нет
m = m-2 = 13-2 = 11; n = n*2 = 2*2 = 4
m<6 ⇒ 11<6 ⇒ нет
m = m-2 = 11-2 = 9; n = n*2 = 4*2 = 8
m<6 ⇒ 9<6 ⇒ нет
m = m-2 = 9-2 = 7; n = n*2 = 8*2 = 16
m<6 ⇒ 7<6 ⇒ нет
m = m-2 = 7-2 = 5; n = n*2 = 16*2 = 32
m<6 ⇒ 5<6 ⇒ да
Ответ: n=32, m=5
1)var a:array[1..3,1..3] of integer;
b:array[1..3,1..3] of integer;
c:array[1..3,1..3] of integer;
i,j:integer;
begin;
writeln('A array:');
for i:=1 to 3 do
begin;
writeln;
for j:=1 to 3 do
begin;
a[i,j]:=random(10)-10;
write(a[i,j]:4);
end;
end;
writeln;
writeln('B array:');
for i:=1 to 3 do
begin;
writeln;
for j:=1 to 3 do
begin;
b[i,j]:=random(-10,10);
write(b[i,j]:4);
end;
end;
writeln;
writeln('C array:');
for i:=1 to 3 do
begin;
writeln;
for j:=1 to 3 do
begin;
c[i,j]:=a[i,j]*b[i,j];
write(c[i,j]:4);
end;
end;
<span>end.
2)</span>var a:array[1..1000,1..1000] of integer;
i,j,k,n,u:integer;
begin;
randomize;
readln(n);
writeln('A array:');
for i:=1 to n do begin;
writeln;
for j:=1 to n do
begin;
a[i,j]:=random(10)-10;
write(a[i,j]:4);
end;
end;
for i:=1 to n do begin;
for j:=1 to n do
u+=a[i,j];
if u<0 then inc(k);
u:=0;
end;
writeln;
write('Result:',k);
<span>end.</span>
Каждого претендента можно закодировать последовательностью из 7 битов, так как всего таких последовательностей 2^7=128, что не меньше, чем количество претендентов.
Так как сообщение о выбранных учениках содержит 105 бит информации, то всего выбранных учеников 105/7=15
1001=1*2^3+1*2^0=9 степени справа налево от нуля,нулям степени не писала т.к в итоге 0 получится