Question

Поменяйте значения двух переменных местами, если они имеют разные знаки
И решить функцию
У всего тема ветвление - паскаль

Answer 1

var f,x:real;

begin

writeln('введите x');

readln(x);

if x<0 then f:=x+sqr(sqr(2)) else if (x>=0) and (x<2*pi) then f:=sin(x) else f:=6*x;

writeln('f(x)=',f)

end.