Program number;
var c, d,i:integer;
begin
writeln('Введите число');
readln(d);
writeln('Введите сколько раз вывести число');
readln(c);
for i:=1 to c do
write(d,' ');
end.
1.
![N = 2^b = 2^4 = 16](https://tex.z-dn.net/?f=N+%3D+2%5Eb+%3D+2%5E4+%3D+16)
16 кодов можно составить из 4-х бит.
2. задача, обратная первой:
![N = 2^b](https://tex.z-dn.net/?f=N+%3D+2%5Eb)
![b = log_{2}(N) = log_{2}(8) = 3](https://tex.z-dn.net/?f=b+%3D+log_%7B2%7D%28N%29+%3D+log_%7B2%7D%288%29+%3D+3)
3 бита нужно, чтоб можно было составить 8 разных кодов.
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(30,-5,50); a.Println;
Writeln('k=',a.Where(x->x<0).Count)
end.
<u><em>Тестовое решение:</em></u>
24 39 36 2 -3 -3 29 32 24 -3 11 14 17 -4 -1 13 13 36 24 49 41 27 17 20 24 32 36 -2 -1 7
k=7
Помогите пожалуйста разобраться в данной ситуации