32768 = 2^15 = 1000000000000000(2)
Выпишем все числа с нечетным кол-вом 1 и симметричные:
1, 111, 10101, 11111, 1001001, 1101011, 1011101, 1111111,
100010001, 110010011, 101010101, 100111001, 110111011,
101111101, 111111111, 10000100001, 11000100011, 10100100101,
10010101001, 10001110001, 11001110011, 10101110101, 10011111001,
11011111011, 10111111101, 11111111111, 1000001000001,
1100001000011, 1010001000101, 1001001001001, 1000101010001,
1000011100001, 1100011100011, 1010011100101, 1001011101001,
1000111110001, 1100111110011, 1010111110101, 1001111111001,
1101111111011, 1011111111101, 1111111111111, 100000010000001,
110000010000011, 101000010000101, 100100010001001,
100010010010001, 100001010100001, 100000111000001,
110000111000011, 101000111000101, 100100111001001,
100010111010001, 100001111100001, 110001111100011,
101001111100101, 100101111101001, 100011111110001,
110011111110011, 101011111110101, 100111111111001,
110111111111011, 101111111111101, 111111111111111
Всё! Всего 64 числа.
<span>А. for i:=-5 to 5 do тело цикла; - 11 раз
В. for i:=6 to 2 do тело цикла; - 0 или 1 раз
С.for i:= 3to 3 do тло цикла ; - 1 раз
D. for i:=3 downto 4 do тело цикла - 1 или 0 раз
E. for i := 3 downto 1 do - 3 раза</span>
1) ответ: 001
2)
160 кбайт * 1024 байт к байт * 8 бит в байт = 1 310 720 бит
1280 пикс * 960 пикс = 1 310 720 бит / 1 228 800 пикселей = 1,06 ~1 бит на пиксель (меньше бита быть не может).
2^1 = 2-ух цветовая палитра (чёрно-белая) или одно-битовая палитра.
а остаток на всякий ховно пойдет типо формата или сжатия или выделили лишнее (запас или просчёт в большую сторону).
3)
40 мегабайт * 1024 раз * 1024 раз * 8 раз = 335 544 320 бит
30 мегабайт * 1024 раз * 1024 раз * 8 раз = 251 658 240 бит
4 минуты * 60 сек минута = 240 сек
16 кГц * 1000 = 16000 Гц
24 бит на один Гц * 16000 Гц за один сек * 2 стерео * 240 сек = 184 320 000 бит вес музыка.wav, качество PCM
16 бит * 16000 Гц за сек * 2 канала * 240 сек = 122 880 000 бит вес файл
24 * 32000 * 2 стерео канала * 240 = 368 640 000 бит
16 * 32000 * 2 канала стерео (в кажд канале будет 16 * 32000) * 240 = 245760000 бит
последний 4) влезет и ещё место останется, точность до 10 мегабайт это 40 + или - 10.
Program t1;
Var a: array[1..n,1..m] of integer;
i,n,m,max,s: integer;
Begin
Read (n,m);
S:=0;
Max:=0;
For i:=1 to n do
Begin
S:=s+a[i];
End;
For i:=1 to m do
Begin
If (max>a[i]) then
Max:=max
Else max:=a[i];
End;
Write (s);
Write (max);
End.