Question

РЕБЯТ СРОЧНО ПОМОГИТЕ СДЕЛАТЬ ЛАБОРАТОРНУЮ ПО ИНФОРМАТИКЕ. ПОЖАЛУЙСТА. ОТДАЮ ВСЕ СВОИ ПНК

Answer 1

var
  x, y: real;

begin
  readln(x);
  if (x < 0) then
    y := sin(x) / cos(x)
  else
    if (x <= 1) then
      y := sqr(e)
    else
      y := x + cos(x);
  writeln(y);
end.