1 задание:
var z,z1,z2,y1,y2,x1,x2:real;
begin
write('Введите x1: ');
read(x1);
write('Введите x2: ');
read(x2);
y1:=(3.5*abs(x1)-1)/(abs(x1)-3.5*power(x1,2));
y1:=(3.5*abs(x2)-1)/(abs(x2)-3.5*power(x2,2));
z1:=y1;
z2:=y2;
z:=z1+z1;
writeln('Результат вычисления= ',z);
end.
2 задание:
var x,y,itog:real;
begin
write('Введите x: ');
read(x);
write('Введите y: ');
read(y);
itog:=ln(power(x,2)+power(y,2))/sin(y);
writeln('Результат вычисления= ',itog);
end.