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

Question

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

---

Answer 1

Var
  x, y: real;

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

---

Comments

СПАСИБО ВАМ ОГРОМНОЕ. ПОЖАЛУЙСТА МОЖЕТЕ ЕЩЕ 1 ТАКОЕ же задание выполнить. Сейчас я выложу