Написать алгоритм вычисления по формуле: y = (1-x2+2.5x3+x4)2 учитывая следующие ограничения: 1) пользоваться можно операциями сложения, вычитания и умножения; 2) каждое выражение может содержать только одну арифметическую операцию

var y,x: real;

begin

readln(x);

y: =2*(1-x*x+2.5*x*x*x+x*x*x*x);

writeln(x);

end.

 

var x,y,z: real;

begin

readln(x);

y: =-x*x;

z: =y*x;

z: =2.5*z;

y: =y+z;

z: =z*x;

y: =y+z;

y: =y+1;

y: =y*2;

writeln(y);

end.

Var  i,n,a,b,c: int64; begin  a: =0;   b: =1;   write('введите число n: ');   readln(n);   write('число фибоначи под номером ',n,': ');   case n of      0: write('0');       1: write('1')  else begin        for i : = 2 to n do  begin          c: =a+b;           a: =b;           b: =c;         end;         write(c);       end;     end; end.  

Встроке с условиями не хватает скобок. вот рабочий вариант вашей программы: program _1; var   x, y, x1, y1, x2, y2, x3, y3: real; begin   write('введите координаты точки(х,у)'); read(x, y);   write('введите координаты первой вершины треугольника(х1,у1)');   read(x1, y1);   write('введите координаты второй вершины треугольника(х2,у2)');   read(x2, y2);   write('введите координаты третьей вершины треугольника(х3,у3)');   read(x3, y3);   if - x2) / (x2 - x1) - (y - y2) / (y2 - y1)) < = 0) and - x3) / (x3 - x2) - (y - y3) / (y3 - y2)) < = 0) and - x3) / (x3 - x1) - (y - y3) / (y3 - y1)) > = 0)       then writeln('точка с введенными вами координатами принадлежит треугольнику') else writeln('точка с введенными вами координатами не принадлежит треугольнику'); end. тестовое решение: введите координаты точки(х,у)5.2 4.7 введите координаты первой вершины треугольника(х1,у1)1.1 2.1 введите координаты второй вершины треугольника(х2,у2)8.3 9.1 введите координаты третьей вершины треугольника(х3,у3)0.1 10.5 точка с введенными вами координатами не принадлежит треугольнику