Question

Помогите с информатикой пжлст(
Надо вычислить значение этой функции.

Answer 1

Ответ:

• begin
• var f :real->real := x-> x<1 ? x*(x+2)/(x-2)**5 : x**2 + 4*x;
• var x := ReadReal('x: ');
• Print('y =', f(x));
• end.

или:

• var x,y:real;
• begin
• read(x);
• if x<1 then y := x*(x+2)/power((x-2),5)
• else y := sqr(x) + 4*x;
• write(y);
• end.

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