Фотография занимает 9 Мб. Определить сколько фотографий вместится на флешку 8 Гб. Измерение информации в сообщения 6) Сообщение о том, что Ваня живет на 5 этаже, несет 3 бита информации.

Сколько всего этажей в доме ?

7) Сообщение, записанное буквами из 16-х символьного алфавита, содержит 70

символов. Какой объем информации оно несет?

8) Определить мощность используемого алфавита, если 3072 символа заняли 1,5Кб

Найдём значения в ячейках B2, C2, D2.

B2 = B1 + C1 = 1 + 8 = 9C2 = D1 * 3 = 3 * 3 = 9D2 = A1 / 3 = 6 / 3 = 2

Осталось найти A2.

Давайте посмотрим на рисунок. На нём видно, что диаграмма состоит из двух частей: одна очень маленькая, две одинаковые и самая большая.

Давайте посмотрим на имеющиеся данные. Эти две одинаковые части могут принимать значения ячеек B2 и C2, то есть равняться 9. Маленькая часть - 2.

Узнаем, чему равен каждый вариант ответа.

A1 - D1 = 6 - 3 = 3. Маловато для такой большой части.(C1 + B1) / 3 = (8 + 1)  / 3 = 3. Маловато.A1 + C1 + 2 * B1 = 6 + 8 + 2 * 1 = 16. О, нормально.(C1 - A1) / 2 = (8 - 6) / 2 = 1. Ну очень мало, даже меньше самой маленькой части.

Получается, что третий вариант является единственным подходящим.

ответ: A1 + C1 + 2 * B1 (16).

- - - -

Кстати, вот эти две одинаковые части, похоже, являются половиной. Значит, найдём целое:

(9 + 9) * 2 = 18 * 2 = 36

Вычтем известное и получим неизвестную часть:

36 - 9 - 9 - 2 = 16

¯\_(ツ)_/¯

Const nx=30;mx=30;
var i,j,n,m:integer;A:array[1..nx,1..mx] of integer;B,D:array[1..nx] of integer;
begin 
write('Введите n');Readln(n);
write('Введите m');Readln(m);
for i:=1 to n do begin
for j:=1 to m do вegin
A[i,j]:=random(100)-20;
write(A[i,j]:4);end;writeln;end;writeln;
for i:=1 to n do begin
for j:=1 to m do begin
if (A[i,j] mod 3 =0) then begin
B[i]:= B[i] + A[i,j];write(A[i,j]:4);D[i]:= D[i] + 1;end;end;writeln;end;
for i:=1 to n do begin
if (B[i]=0) and (D[i]= 0) then B[i]:= -10;
write(B[i]:4);end;end.