А) Для проверки четности удобно использовать операцию определения остатка от деления на 2. Правильный ответ: <span>г) x mod 2=0
б) (x>=-10) and (x<=10)</span>
<span>Объем моноаудиофайла находится по формуле V=f*t*I,, следовательно V=1*16*48000=768000 </span><span>бит, потому что меряем в битах</span>
1)А
2)Б
3)Г
4)А
6)Точно не могу понять. Либо В,либо Б.
Сложение:
101110
1010
--------------
111000
Вычитание:
101110
1010
----------------
100100
Умножение:
101110
1010
--------------
1011100
101110
-------------
111001100
Деление:
101110 | 1010
1010 |-----------
-------- | 100,10011 =100,10(011)
1100
1010
---------
10000
1010
-------------
1100
1010
------------
10
Не совсем красиво но без массивов
var cur_num, prev_num: integer;
Begin
Writeln('Введите последовательность закончив ее нулем');
read(prev_num);
repeat
read(cur_num);
if cur_num * prev_num > 0 then
writeln('Пара = ', cur_num * prev_num);
prev_num := cur_num;
until cur_num = 0;
End.