¬(x & 25 = 0) → (¬(x & 17 ≠ 0) → x & A ≠ 0) = 1
(x & 25 = 0) ∨ (x & 17 ≠ 0) ∨ (x & A ≠ 0) = 1
25 = 11001
17 = 10001
11001 делаем поразрядную конъюнкцию числа 25 на x
01000 - нужно наименьшее x по условию но так же нужна ложь во 2-м
-------- так же нужна ложь, поэтому делаем общую единицу
01000
10001 делаем поразрядную конъюнкцию числа 17 на x
01000 нужна ложь
--------
00000
От сюда мы имеем в этих выражениях ложь (x & 25 = 0) ∨ (x & 17 ≠ 0)
x = 01000
A & 01000 ≠ 0 должна быть истина
01000
01000
--------
01000 - истина
Значит A = 01000 = 8
Const
x0 = 1.909;
x1 = 6.23;
step = 1.005;
t=10;
var
i: real;
begin
i:=0;
while i<(x1-x0)/step do
begin
writeln('a(', x0+i, ') = ', sqrt(1+sqr(x0+i))+t);
i:=i+step;
end;
if (x0+i-step)<(x1) then writeln('a(', x1, ') = ', sqrt(1+sqr(x1))+t)
end.
2 клетки. Потому что в условии описан квадрат, окаймление которого - пустота. Данным условиям удовлетворяет только 2 варианта:
С4 и D4. Во всех остальных случаях - беда)
//Проверил. Да, равно.
//Pascal ABC.NET 3.1 сборка 1219
Const
n=15;
Var
ar:array[1..n] of integer;
i,s:integer;
begin
randomize;
writeln('Array:');
for i:=1 to n do
begin
ar[i]:=random(-10,10);
write(ar[i]:4);
if ar[i]>0 then s:=s+ar[i];
end;
writeln;
write('Result:',s);
end.
Пример работы программы:
Array:
3 -7 0 9 -9 6 -1 0 1 0 -7 9 -9 -5 -8
Result:28
//////////////////////////////////////////