Question

Напишите программу в Паскале

Answer 1

//название
function f(x:real):real;
begin
if x<0 then f:=x 
  else if x=0 then f:=sin(x+1)
     else f:=cos(2*x);
end;
begin
write (f(readreal('Введите x: ')));
end.