………x(в квадрате) при -2<=x<2
f(x)=
………4 в противном случае
uses crt;
var i:integer;
x,y:real;
Begin
clrscr;
write('Input x:');
readln(x);
if (x>=-2) and (x<2) then y:=sqr(x)
else y:=4;
writeln(y:4:2);
readln;
end.
………x(в квадрате) при -2<=x<2
f(x)=
………4 в противном случае
uses crt;
var i:integer;
x,y:real;
Begin
clrscr;
write('Input x:');
readln(x);
if (x>=-2) and (x<2) then y:=sqr(x)
else y:=4;
writeln(y:4:2);
readln;
end.