Объяснение:
program kek;
var
l1, r1, l2, r2, x: Integer;
begin
read(l1, r1, l2, r2, x);
if ((x-l1)*(r1-x) >= 0) then writeln('Первый отрезок.');
if ((x-l2)*(r2-x) >= 0) then writeln('Второй отрезок.');
end.
110111011+110110110 =1101110001
1101110001-11011011 = 1010010110
110010*101110 = 100011111100
101000100110:110101 = 110001
Var n, i: integer;
begin
readln(n);
for i := 1 to n do
if (i mod 2 = 1) then
writeln(i);
<span>end.</span>
Оба опыта одинаковы между собой. Но второй опят более треднее определить, поэтому он будет более неопределёным.