Question

Срочнооооо
Паскаль
Можно ток одно задание

Answer 1

второе задание

program example2;
var x,y:real;
begin
WriteLn('x=');
readln(x);
if x>=-10 then
y:= sqr(x) + 9
else if x<-10 then
y:= 1/sqr(x)-4;
writeln('y=',y);
end.

первое задание
program example1;
var x,y:real;
begin
WriteLn('x=');
readln(x);
y:=abs(sqr(x)-sqrt(x+3)) + cos(x)/2*x+1;
writeln('y= ', y);
end.

Answer 2

вот первое program example1;
var x,y:real;
begin
WriteLn('x=');
readln(x);
y:=abs(sqr(x)-sqrt(x+3)) + cos(x)/2*x+1;
writeln('y= ', y);
end.