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

0 голосов
26 просмотров

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


image

Информатика (227 баллов) | 26 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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.


image
(16.9k баллов)
0

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