в библиотеке 2 зала в каждом по 16 стелажей накаждом стелаже по 10 полок. Какое количество информации мы получим,если нам указали полку на которой стоит нужная книга ответ дайте в битах
Var A: array[1..100, 1..100] of integer; B: array[1..100]of integer; i, j, k, n, m, imax: integer; manual: boolean;
begin writeln('Ручной ввод (true/false)==>'); read(manual);
if manual then begin writeln('Размер массива n, m ==>'); read(n, m); end else begin n := random(10) + 5; m := random(10) + 5; end;
for i := 1 to n do begin writeln(); for j := 1 to m do begin if manual then read(a[i, j]) else begin a[i, j] := random(100) - 50; write(a[i, j]:3, ' '); end; end; end;
writeln(); writeln();
for j := 1 to m do if j mod 2 = 1 then begin k := k + 1; b[k] := 1; for i := 1 to n do b[k] := b[k] * a[i, j]; write(b[k], ' '); end;
writeln();
for i := 1 to k - 1 do begin imax := i; for j := i + 1 to k do if b[j] > b[imax] then imax := j; n := b[i]; b[i] := b[imax]; b[imax] := n; end;
Program vasha_zadacha_1;var b,c:integer; a:array [1..20] of integer; begin randomize; b:=0; for c:=1 to 10 do begin a[c]:=random(0,99); writeln('элемент массива ==>', a[c]); if (a[c] mod 2 = 0) then b:=b+a[c]; end; writeln('сумма чётных элементов массива', b); end.
program vasha_zadacha_2; var b,c:word ; a:array [1..20] of integer; begin randomize; b:=1; for c:=1 to 10 do begin a[c]:=random(0,99); writeln('элемент массива ==> ', a[c]); b:=b*a[c]; end; writeln('произведение всех элементов массива ', b); end.
program vasha_zadacha_3; var b,c:word ; a:array [1..20] of integer; begin randomize; b:=0; for c:=1 to 10 do begin a[c]:=random(0,99); writeln('элемент массива ==> ', a[c]); if (a[c] >= 50) and (a[c]<=60) then b:=b+a[c]; end; writeln('сумма элементов в диапазоне от 50 до 60 ', b); end.
8,32 бит
Объяснение:
Всего стеллажей 2 * 16 = 32, тогда полок 32 * 10 = 320.
Если количество равнозначных вариантов N, то количество информации о том, какой вариант реализовался, равно
бит.