Question

Составить программу на языке Pascal для вычисления величины

Answer 1

PascalABC.NET ₃.₆.₃.₂₅₇₇

• ##
• var f: RealFunc := x -> x<3 ? Tan(x/2) : x>3 ? Abs(x-2) : real.NaN;
• f(ReadReal).Print

Pascal $_{(other}$ $_{editions)}$

• 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.

Пример работы: