Var a:array[1..20] of integer;
i,k1,k2:integer;
begin
for i:=1 to 20 do begin
read(a[i]);
if odd(a[i]) then k2+=1;
if not odd(a[i]) then k1+=1;
end;
writeln(k1,' ',k2);
<span>end.</span>
В первой скобке дано условие х<4. Из представленных вариантов подходят три: 1,2,3. Во второй скобке условие х>2. Из вариантов здесь подходят два: 3 и 4. Решая конъюнкцию первых двух скобок получаем 3. Ну и последняя скобка дает результат 1,3,4. Конъюнктируя этот результат с 3, получим 3. Ответ: 3.
1 бит на 1 цифру числа + по 3 бита на все остальные,
итого 1+3*6=19 бит
Гидравлическая (управление тормозными колодками)
Механическая (рычаги управления)
Электрическая (выключатели управляют освещением например)
Электронная (управление компьютером)
{
Код программы и скриншот работы в приложениях
Написано на PascalABC.NET
}