Ответы
Ответ дал:
0
PascalABC.NET ₃.₆.₃.₂₅₇₇
- ##
- var f: RealFunc := x -> x<3 ? Tan(x/2) : x>3 ? Abs(x-2) : real.NaN;
- f(ReadReal).Print
Pascal
![_{editions)} _{editions)}](https://tex.z-dn.net/?f=_%7Beditions%29%7D)
- var x: real;
- begin
- Readln(x);
- if x<3 then Write(Tan(x/2))
- else if x>3 then Write(Abs(x-2))
- else Write('Корней нет');
- end.
Пример работы:
Приложения:
![](https://st.uroker.com/files/f4b/f4bf09f4ba5fcc861ad50a874500b8c1.png)
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад