program dds;
const n =10;
var a:array[1..n]of integer;
i,o,z,x,h:integer;
begin z:=0;
for i:=1 to n do begin a[i]:=random(10)-5;
write(a[i]:4);end;writeln;
write('vvedite H');
readln(H);
for i:=h+1 to n do begin if a[i]<0
then a[i]:=0; if a[i]>0 then z:=z+1;end;
for i:=1 to n do write(a[i]:4);writeln;
write('chishel=',z);readln;
end.
Посчитаем как обычные числа:
a=1
b=2
d=3
a=2*1=2
b=2+2*3=2+6=8
c=3+1=4
d=2+8-4=6
a=2+8+4=14
<em>ответ
a=14</em>
<em>b=8</em>
<em>c=4</em>
<em>d=6</em>
1)
Цикл for 16 раз выполняет действие:
Если текущий элемент массива f[i] не кратно трем, тогда к переменной S, прибавляется элемент текущей позиции массива m[i].
2)
Вычисляет количество чисел от 1 до 40 кратных двум.
1. 7 бит это 2 в седьмой степени, что равно 128, но если считать с нуля то конечное число 1272. 6 бит это 2 в шестой степени, что равно 64 числам как не считай, хоть от 1 до 64 хоть от 0 до 63 включительно 1) С помощью 7 бит можно закодировать 128 чисел. Значит N=128<span>2) С помощью 6 бит можно закодировать 64 числa. Значит, диапазон содержит 64 числа (в условии не сказано, с какого числа этот диапазон начинается - мы можем вычислить только количество чисел в диапазоне)</span>
