Ответы и объяснения

2013-10-14T22:48:24+04:00
30)
1й способ.


Program pr;
uses crt;

Var y,x:real;
   
Begin
Writeln('Введите x');
readln(x);

if x<-5 then y:=0
        else
        if (-5<=x) and (x<=-2) then y:=3*x-5
                               else
                               if (-2<=x) and (x<2) then y:=x
                                                    else
                                                    if (2<=x) and (x<5) then y:=x*x
                                                                        else
                                                                        if x>=5 then y:=3;
Writeln(y);


readln;
end.