Ответ: в номере 1 ответ 3.
Подробно написал как из десятичной в двоичную переводить. Тут все просто.
Объяснение:
Дополню, 1 ответ остаётся
Во втором Ответ 4 единицы
Не(1*0)+(1+1) =1
1*(1+(1*не 0)*0=0
не (x=5) +(x>6) (вот тут не понимаю ,что нужно)
<span>srednee:=(a+b)/2; наверное.
</span>
Разбиваем справа налево по три разряда и записываем соответствующую восьмеричную цифру.
010 011 -> 23 (8)
Var a: array[1..6] of integer;
i, k, d, v, n: integer;
begin
for i:=1 to 6 do
begin
write('Введите элемент массива под номером ', i, ' = ');
readln(a[i]);
end;
k:=0;
d:=0;
v:=0;
n:=6;
for i:=1 to n do
if a[i]=0 then
k:=k+1
else
if a[i]>0 then
d:=d+1
else
if a[i]<0 then
v:=v+1;
writeln('Количество нулевых = ', k);
writeln('Количество положительных = ', d);
writeln('Количество отрицательных = ', v);
end.