Черно-белое → 2 цвета → глубина цвета 1 бит (2^1=2).
размер 1020*649=661980 пикселей.
каждый пиксель кодируется 1 битом (выше посчитали) → 661980*1=661980 бит на всё изображение.
в 1 байте 8 бит → 661980 бит = 661980/8 байт = 82747,5 байт
Const
n1 = 20;
m1 = 20;
var
a: array[1..n1, 1..m1] of integer;
b: array[1..m1] of integer;
i, j, m, n: integer;
begin
Write('Введите через пробел число строк и столбцов массива: ');
Readln(n, m);
Randomize;
Writeln('Исходный массив');
for i := 1 to n do
begin
for j := 1 to m do
begin
a[i, j] := Random(101) - 50;
Write(a[i, j]:4)
end;
Writeln
end;
Writeln('Сформированный массив');
for j := 1 to m do
begin
i := 1;
while (i <= n) and (a[i, j] >= 0) do i := i + 1;
if i <= n then b[j] := a[i, j] else b[j] := -99;
Write(b[j]:4)
end;
Writeln
end.
<u>Тестовое решение:</u>
Введите через пробел число строк и столбцов массива: 3 10
Исходный массив
-11 -18 -42 -22 -9 2 21 15 40 -3
4 -5 40 -13 -44 -37 43 47 1 -39
20 50 21 -18 -10 6 12 -10 43 -37
Сформированный массив
-11 -18 -42 -22 -9 -37 -99 -10 -99 -3
В EXCEL заполни первый столбец, как показано на рисунке
В ячейку B1 занеси формулу, как показано в строке формул
Корень будет на том промежутке, где функция МЕНЯЕТ знак, у нас это промежутки:
-3,00 -2,50
0,00 0,50
и
2,50 3,00
Теперь сделай эти промежутки "МЕЛЬЧЕ", например
-3,0
-2,9
-2,8 и т.д и опять смотри, где функция СМЕНИТ знак....
И так далдьше
64(10) = 8^2 = 100(8)
57(10) = 7*8 + 1 = 71(8)
6524(10) = 16^3 + 9*16^2 + 7*16 + 12 = 197C(16)
00100111(2) = 2^5 + 2^2 + 2 + 1 = 32 + 4 + 2 + 1 = 39(10)
01111110(2) = 2^6 + 2^5 + 2^4 + 2^3 + 2^2 + 2 = 64+32+16+8+4+2 = 126(10)
Ответ 1 так как 9 / 2=4 полное частное и остаток 1