Вот держите:
var n,i,l,m:integer; sum:real;
begin
readln(n);
sum:=1; l:=1;
while m<>n do begin
m:=m+2;
sum:=sum-((1/m)*l);
l:=l*-1;
end;
writeln(sum);
end.
<span>кристалл кремния,на котором размещаются от десятков до сотен тысяч логичеких элементов</span>
<span>A = (5 < 10) = true
B = (2 = 2) = true
С = (4 < 2) = false
</span><span>(A and B) or C ↔ (A or C) and (A or not B) </span>⇒
(true and true) or false ↔ (true or false) and (true or not true) ⇒
true or false ↔ true and true ⇒
true ↔ true ⇒
true