Составить программу расчёта значения выражения...

Question

Составить программу расчёта значения выражения...

---

Answer 1

// PascalABC.NET 3.3, сборка 1562 от 02.11.2017
var
x: int64;
BeginReadln(x); 
if (x < 0)then
begin
 Writeln('y = ', 1/(x*x));
 halt; 
end; 
if (0 <= x)and ( x <= 2) then <br>begin
 Writeln('y = ', x*x*x);
 halt; 
end; 
Writeln('y = ', x*x + 1); 
end.