averutin
Паскаля под рукой не имею, поэтому не могу проверить, но должно быть так: c)var x,f : real;begin writeln("Введите X: "); readln(x); if(x<0) then f:=((1-cos(2*x))/2 - (1+cos(2*x))/2); else if(x>2) then f:=(x*x - x*x*x); else f:=(log(3*x+2)); writeln("F(x)=", f:6:2);end. d)var x,f : real;begin write("Введите X: "); readln(x); if(x<-2) then f:=abs(2*x-2); else if(x>5) then f:=x*x*x*x; else f:=sin(x); writeln("F(x)=", f:6:2);end.
Answers & Comments
c)var x,f : real;begin writeln("Введите X: "); readln(x); if(x<0) then f:=((1-cos(2*x))/2 - (1+cos(2*x))/2); else if(x>2) then f:=(x*x - x*x*x); else f:=(log(3*x+2)); writeln("F(x)=", f:6:2);end.
d)var x,f : real;begin write("Введите X: "); readln(x); if(x<-2) then f:=abs(2*x-2); else if(x>5) then f:=x*x*x*x; else f:=sin(x); writeln("F(x)=", f:6:2);end.