Question

9. Вычислить значение выражения:(Паскаль пожалуйста):))))))))

Answer 1

Var
 x,y:real;
begin
 readln(x);
 if x<-3 then y:=-2*x+15;
 if (x>-3) and (x<2) then y:=2*cos(x)*sin(x);
 if x>2 then y:=log10(x+4); 
writeln(y);
end.