Question

Пожалуйста помогите с Паскалем

Answer 1

vary,x:real;beginwriteln('Введите число x: ');readln(x);if x<-2 then writeln('при х=',x,'  y=',sqrt(abs(x)))elseif (x=-2) and (x<3) then writeln('при х=',x,'  y=',sin(1/sqr(x)))elseif x>=3 then writeln('при х=',x,'  y=',ln(sqr(x)));end.

Answer 2

var
y,x:real;
begin
writeln('Введите число x: ');
readln(x);
if x<-2 then writeln('при х=',x,' y=',sqrt(abs(x)))
else
if (x=-2) and (x<3) then writeln('при х=',x,' y=',sin(1/sqr(x)))
else
if x>=3 then writeln('при х=',x,' y=',ln(sqr(x)));
end.