1. Дано действительное число х. Вычислить f(x), если

Var
  a:array[1..3,1..2]of real;
  b:array[1..3]of real; //массив для координат пересечения сторон с ОХ
  i,j,z:integer;
// (y1-y2)x+(x2-x1)y+(x1y2-x2y1)=0 - ур-е прямой, прохоходящей через 2 точки
// тогда x=(x2y1-x1y2)/(y1-y2) - координата ее пересечения с осью х  
// найдем координаты пересечения сторон с осью х
function cross(x1,x2,y1,y2:real):real;
begin
result:=(x2*y1-x1*y2)/(y1-y2);
if ((result>x1) and (result>x2)) or ((result<x1) and (result<x2)) then
  result:=1 //это точка пересечения не самой стороны, а ее продолжения
                //поскольку в дальнейшем нам нужны будут знаки координат,           
                //ей приписываем положительной значение, чтобы она не влияла
                //на конечный результат
end;

begin
for i:=1 to 3 do
  begin
  writeln('Введите координаты х,у вершины:');
  readln(a[i,1],a[i,2]);
  end;
z:=1;
for i:=1 to 3 do
  begin
  j:=i+1;
  if j>3 then j:=1;
  b[i]:=cross(a[i,1],a[j,1],a[i,2],a[j,2]);
  z:=sign(b[i])*z;
  end;
write('Начало координат ');
if z<0 then writeln('принадлежит треугольнику')
  else writeln('не принадлежит треугольнику');
end.

Изобретения 19-20 века весьма многочисленны. Самыми значительными можно назвать фотографию, динамит, анилиновые краски для тканей. Кроме того, были открыты более дешевые методы изготовления бумаги, спирта, изобретены новые медикаменты.Технические изобретения 19 века имели большое значение в развитии общества. Так, при телеграфа люди смогли передавать сообщения в течение нескольких секунд с одного конца мира на другой. Изобретен телеграф в 1850 году. Немного позже начали появляться телеграфные линии. Грэхем Белл изобрел телефон. Сегодня люди не представляют себе жизнь без этого открытия.