1) равносильно:
(x&29 =0) +(x&9≠0) + x&A ≠0 =1
рассмотрим, когда сумма двух первые два слагаемых равна 0,
а третье слагаемое=1
29=11101 первое слагаемое =0 при ¬29 = 00010 +
9=1001 ----->(=0) при 9 = 01001
-----------
..011
---------------------------------------------------------------- 100 <---- A=100 =4
2) равносильно:
(x&13=0) + (x&39 =0) + (x&A≠0)*(x&13≠0) = 1
рассмотрим, когда сумма двух первых слагаемых =0,
а третье (произведение) =1
13 = 1101 обратное --> 0010
39= 100111 ---> 011000
10
-------------- поразрядное сложение
11010 т.е. дают 0 двум первым сл.
(x&A≠0) *x&13≠0) =1 ?
13 =1101 --> 0010
A= ---> 1
(из первого рассуждения 11010+
1
0010
--------
... 0111 ---> A=1000 =8
3)равносильно:
(x&13=0) *(x&A=0) +x&13≠0+(x&A≠0)*(x&39=0) =1
рассмотрим, когда первое произведение =0:
13 =1101 ---> обратное--> 0010---> A=2 =10(в 2с/с)
(X&13≠0) можно и не учитывать (пока)
рассмотрим (x&A≠0) * (x&39=0) =1
это будет при А=011000, обратном (39=100111)
складываем оба А:
011000
10
----------
11010 = 2^4+2^3+2 =28 <------- ответ
program raf105;
const
n= 4; //Размер матрицы (кол-во и длинна строк). Можно менять
var
a:array[1..n,1..n] of integer;
asum:array[1..n] of integer;
i,j,k,sum,kolsum: integer;
x: boolean;
begin
write('Введите число k (не больше ',n,'): ');
readln(k);
for i:=1 to n do
begin
writeln;
writeln('Введите ',n,' чис. ',i,' стр.');
for j:=1 to n do
readln(a[i,j]);
end;
writeln;
writeln('Суммы элементов тех строк, в которых первые ',k,' элем. положительные');
for i:=1 to n do
begin
x:= true;
sum:= 0;
for j:=1 to k do
begin
if x and (a[i,j] <= 0)
then x:= false;
end;
if x
then
begin
for j:=1 to n do
sum+= a[i,j];
kolsum+= 1;
asum[kolsum]:= sum;
writeln(asum[kolsum]);
end;
end;
end.
Первый американский программируемый компьютер. Разработан и построен в 1941 году по контракту с IBM молодым гарвардским математиком Говардом Эйкеном и ещё четырьмя инженерами этой компании на основе идей англичанина Чарльза Бэббиджа.
S= 10*500
S= 5000 точек(пикселей)
256 пикселей это 1 байт
3 пикселя это 1 бит
5000/256=19 байт (остаток 136)
136/3=45.33333333333333 бит
Ответ: 19 байт и 45.33333333333333 бит.
//1
for i := -3 to 3 do
Read(a[i]);
//2
Randomize;
for i := -3 to 3 do
a[i] := Random(101) - 50;
//3
for i := -3 to 3 do
a[i] := 5 * i;
//4
Randomize;
for i := -3 to 3 do
a[i] := Random(41) + 150
