Б)
F=¬(X+Y+¬(X*Y) ) + ¬(Y+¬X)
F=¬(X+Y+¬X+¬Y) +¬Y*X
F=0+¬Y*X
F=¬Y*X
в)
F=¬(¬X+Y+Z*X*¬Y) ( формула: A+¬A*B =A+B )
F=¬(¬X+Z*X+Y)
F=¬(¬X+Z+Y)
F=X*¬Y*¬Z
For(i = 0; i < N; i++)
{
sum += a[i] * a[i];
}
<span>графическую или текстовую информацию</span>
Как я понял, А - 0, -А - 1, тогда -А И 0 будет ложью.
//FPC 2.6.4
Program sieve_of_Eratosthenes;
var
n, i, x:integer;
a: array[1..32000] of boolean;
begin
readln(n);
for i:=2 to (n+1) div 2 do
begin
x:=i*2;
while x<=n do
begin
a[x]:=true;
x:=x+i;
end;
x:=0;
end;
for i:=1 to n do if not a[i] then write(i,' ');
readln;
end.